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SECTION DICTIONARY 



NUMBER 



NAME 



MAXIMUM ORIGIN TYP ADDRESS-MODIFICATION 



01 
02 
03 
04 
05 
06 
07 
08 



TAPEHL 

CPATCH 

CPATCH1 

CPATCH2 

CPATCH3 

CPATCH7 

TFAPCH2 

TPATCH 



0004320 
0000657 
0001151 
0000724 
0000000 
0000344 
0001146 
0000000 
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C01 



0123206 
0123206 
0123206 



VERSION W77D OF SWAP; VERSION 



01 
02 
D3 

04 

05 
06 
07 
08 
09 



OF EPL 



DBNAM N033E3I3. OFF. DATABASE 

RELNAM N03ESS 

GETLIB LIBRARY, MEMBER=MOPTBL 

GETUB LIBRARY, MEMBER=SYSMAC 

GETLIB LIBRARY, MEMBER=SYSSYM 

GETLIB LIBRARY, MEMBER=PATCH2 

FIRSTOPTSS 

VERSION 3ACC, FIELD, ESS2E 

PATCHINIT 



10 NO33EJI3.OFF.OPMSC0) DECK 



11 
12 
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DSCWAL N033E3I3 

LISTING N,CRUNCH=Y,SYSOUT=N 

13 ttnttUHtttltiltHtlHtlKHtttt 

14 MH 

15 U# UNIX ID = N03PAG 

16 M 

17 HttHttttUHttHttHHHHItnH 

1 8 HHMHHnttMttttHUHttnHUHHHUIUtllHHHMnUtimHHHHtlUn 

19 HHtt 

20 tttttttt pid date time rel 

21 fffftt 

22 MUU etaph 1/24/81 18:14:02 7.1.1.1 

23 t/tttt 

24 HKM1tUttHH1tnmittHtMHttttBHIt#H#linHHIHtHHHHHimHHH 
MEMBER=TTYSYM 

VERSIONS (3ACC,INTERDATA),(ESS3,ESS2B) 
MEMBER=TTYMAC 
MEMBER=GPMAC 
MEMBER=TAPSYM 
MEMBER=BSAIMAC 
HEMBER=CTVTAB 
CTAPH 



25 


GETLIB 


26 


VERSIO 


27 


GETLIB 


28 


GETLIB 


29 


GETLIB 


3U 


GETLIB 


31 


GETLIB 


32 


NAME 



0123206 



36 nn The following is a list of the valid eseets for program CTAPH 
38 TAPEHL CSECT 



0111432 
0112562 
0114107 
0115073 
0121236 



41 tttl The following eseets are necessary for patching 

43 CPATCH CSECT 

44 CPATCH1 CSECT 

45 CPATCH2 CSECT 

46 CPATCH3 CSECT 

47 CPATCH7 CSECT 
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0116774 
0600000 



DPI 



01 TFAPCH2 CSECT 
03 TPATCH CSECT 
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0123206 



E01 



01 OREF ON 

02 TAPEHL CSECT 
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EXTERNS 



> 



F01 



01 BLMMA EXTERN OFLUTIL 

02 BLMMA EXTERN TEMPINH 
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06 CBLM 

07 CBLM 



EXTERN ACTMSF 
EXTERN CTAPHRTN 



11 CINIT EXTERN SHITCHCC 



15 CNRUTL DIRECT TUUTCTL 






1? 


CSYSUB 


EXTERN 


CLR HRDS 


20 


CSYSUB 


EXTERN 


LODIOC 


21 


CSYSUB 


EXTERN 


MOVST 


22 


CSYSUB 


EXTERN 


SENDMIO 


23 


CSYSUB 


EXTERN 


UNLODIOC 


24 


CSYSUB 


EXTERN 


BINXBCD 


28 


CTSD 


EXTERN 


CCKTSTAT 


29 


CTSD 


EXTERN 


OFLUCTL 


30 


CTSD 


EXTERN 


TDCO 


31 


CTSD 


EXTERN 


RESDIR 


32 


CTSD 


EXTERN 


MTCSV 


55 


CTSD 


EXTERN 


SYSTIM 


34 


CTSD 


EXTERN 


TCBADR 


33 


CTSD 


EXTERN 


TUSTAT 


36 


CTSD 


EXTERN 


PAGSCR 


40 


BLMMA 


EXTERN 


DGNTAPE 


41 


BLMMA 


EXTERN 


TAPEIRTN 


42 


BLMMA 


EXTERN 


TAPOIRTN 
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EXTERNS 



G01 



01 TDATA EXTERN TAPEOPTS 

02 TDATA EXTERN TAPEflUE 

03 TDATA EXTERN TAPEOUO 

04 TDATA EXTERN TAPETBL 



08 TTYTBL EXTERN TTY IP 

09 TTYTBL EXTERN TTY_N6 

10 TTYTBL EXTERN TTY OK 

11 TTYTBL EXTERN TTY_PF 

12 TTYTBL EXTERN TTY_RL 

13 TTYTBL EXTERN UCL 
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17 LAYOUT 

18 LAYOUT 
1? LAYOUT 

20 LAYOUT 

21 LAYOUT 

22 LAYOUT 

23 LAYOUT 

24 LAYOUT 

25 LAYOUT 

26 LAYOUT 



EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 



I OBUF 
MMTOFO 
MMT1 FO 
KMTOTE 
MMT1TE 
MMTOFR 
MMT1FR 
MMTOFW 
MMT1FW 
MMTDCAR 



30 H TAPE DEFINITION PARAMETERS 

31 MASACS EXTERN BLKMAX 

32 MASACS EXTERN BUFLEN 

33 MASACS EXTERN BUFBLK 

34 MASACS EXTERN DIRLOC 

35 MASACS EXTERN DIRTRK 

36 MASACS EXT:RN FSTDIST 

37 MASACS EXTERN LASTBUF 

38 MASACS EXTERN MStCPR 

39 MASACS EXTERN REDKON 



43 
44 
45 
44 

47 
48 

w 



PUBLIC ALWERRCV 

PUBLIC CLRMAINT 

PUBLIC COMPROK 

PUBLIC COM! J 

PUBLIC CTAPH 

PUBLIC BLKDATA 

PUBLIC DGNRMV 
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EXTERNS 






PUBLIC 


DIAGST 


PUBLIC 


INHERRCV 


PUBLIC 


INITTAPE 


PUBLIC 


JAMTU 


PUBLIC 


OPENM 


PUBLIC 


OPEMTCB 


PUBLIC 


ORDEXC 


PUBLIC 


ORDEXCAB 


PUBLIC 


POPSTATE 


PUBLIC 


PTREC 


PUBLIC 


POSOK 


PUBLIC 


POSST 


PUBLIC 


ORDEXCNT 


PUBLIC 


PUSHSTAT 


PUBLIC 


REDON 


PUBLIC 


REPACK 


PUBLIC 


REQR 


PUBLIC 


REQSTP 


PUBLIC 


RPTTAPE 


PUBLIC 


RSTDUP 


PUBLIC 


RSTTAPE 


PUBLIC 


RMVTAPE 


PUBLIC 


SETMAINT 


PUBLIC 


STATONL 


PUBLIC 


STATSET 


PUBLIC 


STATWRO 


PUBLIC 


TAPINTE 


PUBLIC 


TAPINTO 


PUBLIC 


TSTATE 


PUBLIC 


XORTAB 
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0000001 



34 K TAPE BLOCK DEFINITIONS 

35 I 08UFD EQU 1 

36 PUBLIC I OBUFD 
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TAPE MACROS AND LAYOUTS 
OPEN MACRO 
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00 1 

I 
011 

I. 
021 

I 
031 

I 
041 

I 

I 



01 
02 
03 
04 

05 



U THIS IS THE EXPECTED TYPE OF DATA LAYOUT FOLLOWING 
H THE USE OF THE OPEN MACRO. THIS DATA IS USED BY THE 
# DIRECTORY SEARCH ROUTINES. THE SEIZE MACRO ALSO USES 
U THIS LAYOUT WITHOUT THE ASCII CHARACTERS. 



LAYOUT 



06 WORDCNT ITEM 



07 OPSZ ITEM 

08 RTNDX ITEM 
no ITEM 

10 EXPOP ITEM 

11 ITEM 

12 ITEM 

13 NAME ITEM 

14 ITEM 

15 ITEM 

16 ITEM 

17 ITEM 

18 ITEM 
1? ITEM 

20 ITEM 

21 LOEND 
-QQ5- 12 H _ 

— - - TEXPOP J T RTNDX 

C.LIINI NUMBER I ( I __ i BEI-BO-P-EX 



*N0. OF WORDS FOR FILE NAME 
# OPEN-SEIZE FLAG 
^RETURN INDEX 



K CLIENT NUMBER 

#ASCII CHARACTER 2 OF FILE NAME 

(KASCII CHARACTER 1 OF FILE NAME 

#ASCII CHARACTER 4 OF FILE NAME 

0ASCII CHARACTER 3 OF FILE NAME 

#ASCII CHARACTER 6 OF FILE NAME 

#ASCII CHARACTER 5 OF FILE NAME 

#ASCII CHARACTER 8 OF FILE NAME 

#ASCII CHARACTER 7 Of FILE NAME 



TopsT 



WORDCNT 



NAME 



_ft££___cjftEAC.IEB_:L_E-E-.-E_____ i ft__U-C__Aaft-IEB-_--E-E--E_-ft_E_ 

_A_____-H.ftBftC_IEB____£-E_LE_Nft-E I ft__l____iEft-IEB____E_E-_E-NA._E. 

.ftSC.U-Ea6BftC.IE8_5__OE_EIL.E-N.AMi { ft-_ll---ftEft£IEB--_2E_£il-E--ft_E- 



- Tr - T - 



--Tr-T &ig fPf sfi i. ls T Z - e iT E ¥- N -fSS- 9 ™T-r~{-7- 



. r -_.--_ T ft- £ ii--aftEftpEE T --e§_Ell f E.-ftHE- r -- r __ r „-. 



COMMON TAPE HANDLER 

0:43:06 2/06/81 TRADE SECRET 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH 



PR-1C957-50 
ISSUE 08 PAGE 






C02 



TAPE MACROS AND LAYOUTS 
CLIENT CONTROL MACROS 



01 
02 

03 
04 
05 
06 
07 
08 
09 



0:43:06 2/06/81 **** 

CTAPH W77D 

LAYOUT OF DATA WORDS AFTER CALL TO REQUEST SUBROUTINE FOR THE 
REMAINING MACRO CALLS. 



LAYOUT 



READ 

READ-A-BLK 
WRITE 
POSITION 
BACK SPACE 
WRITE ABSOLUTE 



00 1 

I 
011" 

I 

I" 



10 HOADRBIT ITEM 

11 ITEM 

12 WRTABS ITEM 

13 TYPER ITEM 

14 REQUEST ITEM 

15 CLNT ITEM 

16 LOADRBIT ITEM 

17 LOEND 

.„1«_* 

CLNT T REQUEST 

-CLilNI-HyeilE ; i RESMESLBIIS 

LOADRBIT 



2,FLTBLK 
4 

1 
1 
1 
4 

5 
16 



# HO ADR BITS 



U 1 IF ONLY ONE DATA WORD IF 2. 

# REQUEST BITS 
it CLIENT NUMBER 

# CLIENTS I/O ROUTINE ADRS (LO BITS) 



-QQ3- 



"T"TYPER~TWRfABS~T T " "HOADRBIT 

A i 1 i H2_&or_hii. 



"TJ~"T — TT~T — TJ~T — T?~T — TT~T"" 



_ T0 __^llNis_i^e_|oui|Ni_^ES T ii r 2 ami 



- T — r __ r __ r __ r 
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002 






HEABB. 
001 
I 

01 r~ 
i 

02 1 



DATA LAYOUTS 

BLOCK HEADER STORAGE 



01 
' 02 

03 
04 
05 
06 
07 
08 
09 
10 

"~T~deoF~T~~eoF~~T trck" T 

„i JL_l2E_-i IE&tK-BII I 
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* THIS 

HEADR 

BLKADR 

TRCK 

EOF 

DEOF 



CTAPH 

IS THE LAYOUT OF A BLOCK ON THE TAPE. 
LAYOUT 3,FLTBLK 

11 * BLOCK ADDRESS 

2 # TRACK BIT 

1 H EOF 

1 #FILE CONTINUED ON NEXT TRACK. 

0,0 

16 

16 U CRC 



W77D 



ITEM 
ITEM 
ITEM 
ITEM 
LOSKIP 
DATA AREA ITEM 
CRCBLK ITEM 

LOEND 
i 



I 



DATA 



BLKADR 

BL0!II<_4BBEIiS 

AREA 



"Tf~"T — tTT~~ T?~ T — T?~T — TT~ T — TUT"* — T" 



CRCBLK 

CR£ 

8 T 7 



t~ r 



"T — r~TT — 2' 



.. — T — c - 






■ 
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DATA LAYOUTS 

TAPE CONTROL BLOCK 



0:43:06 



0123206 

0123206 
0123206 

0123206 
0123206 

0123206 
0123206 
0123206 

0123206 
0123206 



02 


tt 


03 


tt 


04 




05 


% 


06 


tt 


07 


tt 


08 


tt 


09 


ft 


10 


tt 


11 




12 


tt 


13 


it 


14 


tt 


15 


tt 


16 




17 


tt 


18 


tf 


19 


tt 


20 


tt 


21 


tt 


22 




23 


it 


24 


tt 


25 


tt 


26 




27 


tt 


28 


tt 


29 


it 


30 


tt 


31 




32 


tt 


33 


tt 


34 


tt 


35 




36 


it 


37 


tt 


38 


it 


39 




40 


# 


41 


tt 


42 


tt 


43 


tt 


44 


tt 


45 




46 


K 


47 


tt 


48 




49 


tf 



CTAPH 

THIS IS THE MAIN STORAGE AND CONTROL BLOCK OF THE 
CTAPH PROGRAM. THE UNDERSTANDING OF THESE WORDS AND 
BITS ARE ESSENTIAL IN MAINTAINING THE PROGRAM. 

1. THE 'REQ' BITS ARE USED TO STOhE NEW REQUESTS 
FROM A CLIENT. WHEN THE TAPE SYSTEM IS IDLE (NOT 
SERVICING ANY TAPES, THE IDLE REQUEST IS STORED 

IN THESE BITS. THIS IS A NON ZERO STATUS SINCE ZERO 
IS RESERVED FOR A MRF CONDITION WHICH CAUSES SPECIAL 
ACTION TO BE TAKEN. 

2. THE 'REQSTP' BIT IS SET UNTIL THE NEW INCOMING CLIENT 
REQUEST CAN BE INITIATED. THIS BIT WILL PREVENT THE 
OVERWRITING OF THE 'REQ' FIELD BY AN ATTEMPT TO MAKE 
ANOTHER REQUEST BEFORE THE NEW ONE IS SERVICED. 

3. THE 'MAINT' BIT IS SET WHEN THE ERROR RECOVERY 
STATE IS INPROGRESS TRYING TO RECOVER A BLOCK 
IN ERROR. SOME STATES IN TAPE HANDLING WILL 
EXECUTE DIFFERENTLY WHEN THEY ARE INVOKED BY 
THE ERROR RECOVERY STATE. 

4. THE *W3I' BIT INFORMS THE INTERRUPT CODE THAI 

THE NEXT INTERRUPT IS THE EXTRANEOUS ONE GENERATED 
AT THE END OF THE WRITE OPERATION. 

5. THE 'ABWRT' BIT INFORMS THE WRITE STATE NOT TO 
DO ANYTHING TO FORMAT THE BLOCK IN THE I OBUF 
STORAGE AREA. THE CLIENT HAS TAKEN CARE OF EVERYTHING 
BUT THE CRC. 

6. THE 'IOCMP' BIT COMMUNICATES A SUCCESSFUL INTERRUPT 
LEVEL OPERATION AT THE END OF A BLOCK READ OR WRITE. 
BASE LEVEL USES THIS AS AN ALL SEEMS WELL FLAG. 

7. THE 'SRFAL' BIT INDICATES THAT THE INTERRUPT HAS 
DETECTED A CRC FAILURE OR OTHER DATA SHUFFLING 
FAILURE. 

8. THE 'STPST' BIT TELLS THE INTERRUPT LEVEL CODE 
NOT TO OVERWRITE THE I OBUF STORAGE AREA WITH 
DATA COMING OFF OF THE TAPE. THE INTERRUPT IS 

JUST TO SERVICE THE TDC AND PERFORM AUDIT FUNCTIONS 
REQUIRED TO GUARANTEE A RELIABLE READ OPERATION. 

9. THE 'CLIENT' BITS STORE THE NUMBER OF THE CLIENT 
IN CONTROL OF THE TAPE SYSTEM. 

10. THE 'HOFILNAM' AND 'FILNAM' FIELDS STORE THE ADDRESS 
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DATA LArbUTS 




TAPE CONTROL BLOCK 




0123206 




0123206 




0123206 




0123206 




0123206 




0123206 





0123206 






0123206 






0123206 






0123206 






0123206 






0123206 
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01 


tt 


02 




03 


ft 


04 


tt 


05 


H 


06 


» 


07 




08 


H 


09 


tt 


10 


1 


11 




12 


tt 


13 


n 


14 


# 


15 


tt 


16 




17 


tt 


18 


if 


19 


tf 


20 


it 


21 


tf 


22 




23 


it 


24 


if 


25 


it 


26 




27 


it 


28 


tt 


2? 


tf 


30 


tf 


31 




32 


tt 


33 


tf 


34 




35 


tt 


36 


tt 


37 




38 


tt 


39 


tf 


40 


It 


41 


tf 


42 




43 


tf 


44 


ft 


45 




46 


tt 


47 


tt 


48 


tt 


49 
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OF THE NAME OF THE FILE TO BE OPENED. 

11. THE 'CONTLPT* AND 'HOCONPT' FIELDS STORE THE 
ADDRESS OF THE CLIENT'S BLOCK READING ROUTINE. THIS 
ADDRESS WILL BE CALLED FOR EVERT BLOCK READ IN BY 
THE INTERRUPT LEVEL PROGRAM. 

12. THE 'LOGBLK' FIELD IS WHERE THE CLIENT'S LOGICAL 
FILE INDEX REQUEST IS STORED FOR POSITIONING 
RE8UESTS. 

13. THE 'VERTRK' FIELD IS USED TO INDICATE THE TRACK 
TO BE USED WHEN VERIFYING THE TAPES POSITION. 
THIS FIELD SHOULD USUALLY BE THE SAME AS THE 
•TRACK' FIUD WHEN NO ERROR CONDITIONS EXIST. 

14. THE 'OTHERU' BIT INDICATES THAT ERROR RECOVERY 
SHOULD TERMINATE SINCE THE OTHER UNIT HAS ALREADY 
BEEN USED TO ATTEMPT A RECOVERY AND AN ERROR STILL 
EXISTS OR A NEW ONE HAS OCCURED IN THE USE OF THE 
OTHER UNIT. 

15. THE 'ERNA* BIT INDICATES THAT THE OPERATION NOW 
BEING ATTEMPTED CANNOT ALLOW FULL ERROR RECOVERY 
THUS LIMITING THE RECOVERABILITY OF DATA. 

16. THE 'SEEI' BIT INDICATES THAT CONTROL OF THE TAPE 
SYSTEM WAS GAINED BY THE SEIZE MACRO. THIS GIVES 
THE CLIENT CERTAIN PRIVILEGES NOT AFFORDED TO THE 
USERS OF THE OPEN MACRO. 



17. 



THE 'PHYBLK' FIELD HOLDS THE PHYSICAL BLOCK NUMBER 
OF THE START OF THE FILE BEING USED CURRENTLY. 



18. THE 'TRACK' FIELD INDICATES THE TRACK TO BE 
USED FOR ALL CLIENT READ AND WRITE REQUESTS. 

19. THE 'DUP' BIT INDICATES THAT THE OPENED FILE 

IS OF THE WRITE DUPLICATE TYPE. A BLOCK WRITTEN 
BY THE CLIENT WILL BE AUTOMATICALLY WRITTEN ON 
THE MATE UNIT, IF INSERVICE. 

20. THE 'EXPLIC' BIT INDICATES THAT THE CLIENT HAS 
SPECIFIED THE TAPE TO BE USED IN THE OPEN OPERATION. 

21. THE 'EVOD' BIT INDICATES WHICH TAPE THE CLIENT 
SPECIFIED. THE EVEN OR ODD ONE IN THE MATED PAIR 
ON WHICH THE FILE IS LOCATED. 
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DATA LAYOUTS 

TAPE CONTROL BLOCK 






0123206 
0123206 

0123206 

0123206 
0123206 

0123206 






0123206 
0123206 

0123206 



0123206 
0123206 



01 
02 
03 
04 
OS 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
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22. 



23. 



24. 



25. 



26. 



27. 



28. 



THE 'LASTBLK' FIELD INDICATES THE ENDING PHYSICAL 
BLOCK NUMBER OF THE FILE. 



THE 'ENDTRK' 
THE FILE. 



FIELD INDICATES THE ENDING TRACK OF 



THE 'REPK' BIT INDICATES THAT A REPACK OF THE TAPE 
HAS BEEN SCHEDULED FOR WHEN THE TCB IS RELEASED BY 
THE CLIENT. 

THE 'DIAGBITS' FIELD INDICATE WHAT MODE THE 
TAPE HANDLER SHOULD RUN UNDER DURING SPECIFIC 
PHASES OF TAPE DIAGNOSTICS. 

THE 'TAPNO' FIELD INDICATES THE TAPE NUMBER 
OF THE TAPE BEING USED AT THIS TIME. 

THE 'BUFCT' FIELD IS A COUNTER USED BY THE INTERRUPT 
LEVEL CODE TO KEEP TRACK OF HOW MANY TDC BUFFERS HAVE 
BEEN USED SO FAR IN A READ OR WRITE OPERATION. 

THE 'STATEWRD' AND 'STATEFLG' FIELDS ARE THE MAIN 
STATE SCHEDULING FIELDS FOR A TAPE OPERATION. THE 
'STATEWRD* IS COMPOSED OF 4-4BIT FIELDS WHICH ARE 
A PUSH-PULL SCHEDULING STACK. THE LOW 4 BITS SHOW WHICH 
STATE IS IN CURRENT OPERATION. 3 MORE FIELDS EXIST 
ABOVE THE LOW 4 BITS FOR STACKING THE NEXT STATES TO 
GAIN CONTROL WHEN THE CURRENT ONE RELINQUESES CONTROL. 
THE 'STATEFLG' FIELD IS ALSO 4-4BIT FIELDS WHICH MOVE 
WITH THE 4-4BIT STATEWRD FIELDS. THEY INDICATE WHICH 
SUBSTATE IS IN CONTROL WITHIN THE STATE CURRENTLY 
IN PROGRESS. 









# 29. THE 'TIMEK' FIELD IS USED TO STORE TIMING CONSTANTS. 

K 30. THE 'LSTCOM' FIELD INDICATES THE LAST MOTION ORDER 
If SENT TO THE TDC AS A RESULT OF A CLIENT REQUEST. 

# 31. THE 'ORIGIN' FIELD SAVES THE STARTING TRACK AND BLOCK 
» NUMBER OF THE FILE BEING USED BY THE CLIENT. THIS IS 
9 REQUIRED SINCE THE 'PHYBLK' FIELD GETS MODIFIED FOR 

ft FILES WHICH BLEED ON TO THE NEXT TRACK. 

# 32. THE 'TORLOK' AND 'SNER' BITS ARE USED IN THE BASE LEVEL 
It DETECTION OF A TAPE-OFF-REEL CONDITION. 

n 33. THE 'LSTSOOD' FIELD IS USED TO STORE THE BLOCK NUMBER 
H OF THE LAST VERIFIED GOOD BLOCK READ IN BY THE TAPE 

# HANDLER DURING READ OPERATIONS. IT IS USED IN MAINTAINING 
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DATA LAYOUTS 

TAPE CONTROL BLOCK 



0123206 
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01 

oz 

03 
04 
05 
06 
07 
08 
09 
10 



JJSL 



RELIABLE POSITIONING AND ERROR RECOVERY. 
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# 34. THE '5MRTN' BIT IS USED WHEN A CLIENT WISHES INTERRUPT 
U LEVEL CONTROL DURING TIMED INTERRUPTS. THE INTERRUPT 
ft LEVEL TAPE HANDLER FIRST FILLS THE IO_BUFF AREA WITH 

# THE DATA FROM THE TAPE BLOCK, THEN BRANCHES TO THE CLIENT. 
K IF THE CLIENT DOES A RETURN 0, NO MORE INTERRUPT CONTROL 

,/ IS NEEDED IF THE CLIENT DOES A RETURN 1, THIS BIT IS SET 

# TO 1. ON THE NEXT INTERRUPT IF IS NO WORK FOR 

M THE TAPE HANDLER CONTROL IS GIVEN BACK TO THE CLIENT. 



14 TCB LAYOUT 

15 REQ ITEM 

16 REQSTP ITEM 

17 MAINT ITEM 

18 WSI ITEM 

19 ABWRT ITEM 

20 IOCMP ITEM 

21 SRFAL ITEM 

22 STPST ITEM 

23 CLIENT ITEM 

24 HOFILNAM ITEM 

25 LOSKIP 

26 FILNAM ITEM 

27 HOCONPT ITEM 

28 LOSKIP 

29 CONTLPT ITEM 

30 LOGBLK ITEM 

31 VERTRK ITEM 

32 OTHERU ITEM 

33 ERNA ITEM 

34 SEEZ ITEM 

35 PHYBLK ITEM 

36 TRACK ITEM 

37 DUP ITEM 

38 EXPLIC ITEM 

39 EVOD ITEM 

40 LASTBLK ITEM 

41 ENDTRK ITEM 

42 REPK ITEM 

43 DIAGBITS ITEM 

44 TAPNO ITEM 

45 LOSKIP 

46 BUFCT ITEM 

47 LOSKIP 

48 STATEWRD ITEM 

49 STATEFLG ITEM 



16,FLTBLK 

4 

1 

1 

1 

1 

1 

1 

1 

5 

4 

0,0 

16 

4 

0,0 

16 

11 

2 

1 

1 

1 

11 

2 

1 

1 

1 

11 

2 

1 

2 

2 

0,0 

4 

0,0 

16 

16 



It REQUEST BITS 

It STOP REQUEST BIT 

U MAINTENANCE REQUEST BIT 

n WRITE STOP INT. EXPECTED. 

^ABSOLUTE WRITE REQUEST 

It I/O SUCCESS FLAG. 

It CRC FAIL 

0STOP DATA STORAGE 

H CLIENT NUMBER 

0HIGH BITS OF NAME ADR. 

U FILE ADDRESS NAME LOW ORDER BITS (LOB) 
IKHIGH BITS OF CONT ADR. 

It LOW BITS OF CLIENT CONTROL ROUTINE. 
It CLIENTS LOGICAL INDEX INTO FILE 
WRACK VERIFY WILL BE DONE ON 

# OTHER UNIT USED IN RECOVERY ALREADY 
(CERROR NOT ALLOWED BIT 

IKSIEZE FUNCTION IP. 

# PHYSICAL LOCATION OF FILE. 
It TAPE TRACK 

It DUPLICATED FILE 

It EXPLICIT TAPE UNIT REQUEST 

It EVEN OR ODD TU FOR EXPLICIT TAPE REQUESTS. 

U LAST BLOCKS IN FILE. 

(►REPACK TAPE REQUEST 

It TAPE NUMBER 

tt BUFFER COUNT 

It STATE STACK WORD (4 BITS PER STATE) 
It STATE FLAGS <4 BITS PER STATE) 
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DATA LATOUTS 

TAPE CONTROL BLOCK 



01 TIMEK ITEM 

02 LSTCOM ITEM 

03 ORIGIN ITEM 

04 TORLOK ITEM 

05 SNER 

06 5MRTN 



ITEM 
ITEM 



TCB 
001' 

I 
011 

I 
021' 

I 
031" 

I 
041' 

t 
051" 

I 
061" 

I 
071" 

I 
081 

I 
091" 

I 
101" 

I 
111" 

I 
121 

I 
131" 

I 
141 

I 
151 

I 

I 



CLIENT 

.aiiNi.Ni/M.eEB. 



07 LSTGOOD ITEM 

08 ITEM 

09 ITEM 

10 ITEM 

11 LOEND 
-=Q03-_12 _ 

T STPST T SRFAL T IOCMP 
I _ I I 



B03 



16 

16 

13 

1 

1 

1 

11 

2 

2 

1 
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* TIME CONSTANT STORAGE 

It LAST ORDER SENT TO TDC AT BASE 

* ORIGIN OF FILE. BLK AND TRACK. 
*TAPE OF REEL FLG 

#SEEN TAPE OFF REEL 

^CLIENT WISHES INTERRUPT CONTROL IF BR FLAG*=0 

M.AST GOOD BLOCK READ IN 



"TaBWRT T" 
I I 



WSI 



"T""MAINT~TREQSfp~T" 
I I I 



FILNAM 
.£Ikl_ABB5E£S-N4«I_L2«-2EDER_Blls_(L.2Bl 



REQ 

-BI2yisi_iiu. 



HOFILNAM 
-HiGOm_gF_NA.Mi_A.P_R,. 



seez~T~erna" 



EVOO lEXPLIC 



DIAGBITS 



TOTHERU T 
I _ I 

T dup T 

I I 

T REPK T 

I L 



VERTRK 



TRACK 
.I4PE_IR___. 
ENDTRK 



CONTLPT 

.-k2W_!m_eE_£Li|N__cg_i____BomiN_. 



HOCONPT 
.mga_BII£_2£_£2NI_4BS i . 



LOGBLK 

-£LI|NIS_L2GIC4L_IN____I_I2_FILI_ 
PHTBLK 



-EHY_I__l__l I 2CAIigN_0__£IU| i 
LASTBLK 

L4SOL2£l<S-iN_£ll.E._ 



T 



STATEWRD 

-SIftII_Hftc___gEB__4_Bii______si_iE_ 

STATEFLG 



BUFCT 

-IU££ER_£OyNI_ 



TAPNO 
-I4EE_N.yM.BEB_- 



"?MRfN"T""SNER" 
I 



"TfORLOK" 
I 



"TJ" 



IV'V TT 



' W ' V " W 



TP I P 



-5IfiIE_£L&GS_(4_Biis__E___i_i|_ 

TIMEK 

II(!E_£0_siA_i_5ig_ft5f __ 

LSTCOM 
A&SI_2E2l8_SEtJI_I2_IB£_4I_B4S_ 

ORIGIN 

2BISIN_2£_£IL.E--Bkl<-4ND___4C.K._ 

LSTGOOD 
.— T L4SI.620D_BL2£I.,RE___I___ 

T 6 T 5 T 4 T 



TT 



"T ? — i — . — t — tr 
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DATA UroUTS 
MAINTENANCE SAVE BLOCK 



C03 



0:43:06 



2/06/81 



00 1 

I 
011" 

I. 
021 

I 
031' 

I 
041" 

I 
051 



CTAPH 

01 # THIS IS THE LAYOUT OF THE SAVE AREA USED BT THE ERROR RECOVERY 

02 If STATE. CRITICAL CLIENT DATA IS SAVED HERE SO THAT IT CAN BE 

03 l RESTORED TO THE PRE-ERROR STATE IF THE RECOVERY IS SUCCESSFUL!. 

04 # THE STATEWRD AND STATEFLG AREAS ARE SAVED ALONG WITH THE 

05 H PHYBLK, LSTCOM, LOGBLK AND LSTGOOD FIELDS OF THE TCB. 

06 LAYOUT 6,FLTBLK 

07 SVST ITEM 16 J 
ITEM 16 * 

16 * 

16 * 

16 * 



W77D 



08 SVFLG 

09 SVBASE ITEM 

10 SVCOM ITEM 
SVINDX ITEM 



11 

12 SVLSTGOOD ITEM 16 



STATE SAVE WORD 
FLAG SAVE WORD 
SAVE THE BASE BLOCK OF FILE 
LAST BASE LEVEL TDC COMMAND 
SAVE CLIENTS LOGICAL INDEX 
0SAVED LAST GOOD BLOCK READ IN 



13 

=QH=_1&. 



LOEND 



SVST 
SIAJE_SAVE_WORD_ 
SVFLG 



FkA.G_SA_VE._W0RB 

SVBASE 

S&VE.IHI.BA.SOL.gC.OE-ElUg. 

SVCOM 

LfiSI_Bft5E_UfV|k_IB£_£at<M&ND. 

SVINDX 
_ _S&VE_£U!NIS_kaGIC.A.L._iNDEX_ 
SVLSTGOOD 



„_ r _ T — Tr - T — Tj~r--- T?— T" TT~T~- T2 



£^IB-l f tSI g Goo^_a^c.|i_^lt& g lN. T . 



ii i ~ " i — J~~~r 



1 — T — T — B' 
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003 






DATA LAYOUTS 




0:43:06 2/06/81 **** 




DIRECTORY BLOCK 




CTAPH W77D 




01 ft THIS LAYOUT 


SHOWS THE FIRST ENTRY IN THE TAPE DIRECTORY. THE 




02 n TAPE DIRECTORY ENTRY CONTAINS THE NAME OF THE FILE IN UP TO 




03 « 8 CHARACTERS 


, THE STARTING 


AND ENDING BLOCK AND TRACK NUMBERS 




04 K AND THE FACT 


THAT THE FILE 


IS AUTO DUPLICATED. THE FINAL BIT 




05 H OF INFORMATION IS THE PAIR 


OF TAPES THAT THE FILE IS LOCATED ON. 




06 LAYOUT 


7 






07 SYFILE ITEM 


8 


#N0. OF SYSTEM FILES 




08 USRDIST ITEM 
0? FILENAM ITEM 
10 ITEM 


8 


#D IS PLACEMENT IN BLKS TO USER DIRECTORY 


8 


^CHARACTER 2 OF FILE NAME 




8 


* CHARACTER 1 OF FILE NAME. 




11 ITEM 


8 


n CHARACTER 4 OF FILE NAME. 




12 ITEM 


8 


U CHARACTER 3 OF FILE NAME. 




13 ITEM 


8 


* CHARACTER 6 OF FILE NAME. 




14 ITEM 


8 


K CHARACTER 5 OF FILE NAME. 




15 ITEM 


8 


H CHARACTER 8 OF FILE NAME. 




16 ITEM 


8 


» CHARACTER 7 OF FILE NAME. 




17 LSTBLK ITEM 


11 


U LAST BLK IN FILE 




18 LTRK ITEM 


2 


(CLAST TRACK 




19 LOSKIP 


0,0 






20 FILSTRT ITEM 


11 


it PYSICAL START OF FILE 




21 TRK ITEM 


2 


#TRACK 




22 DUPL ITEM 


1 


#DUPL. 




23 TAPNUM ITEM 


2 


#TAPE NO. 




24 LOEND 






001' 


. „ _ -0Q3" 25 * 






USRDIST 


~T 


syfiCe I 


1 

011' 


«. BISPL.ft£EMgNI_£OU<S-ie_yS_ER-.DJR! c -I08Y_ 


I 


NO. OF SYSTEM FJtLES 1 




T 


FILENAM 1 


1 
021" 

1 
031" 

1 
041" 

1 
051 


£Bft8&£IEE_l_0F_EIL.i_NA.M.E i 


1 


__ __C.H.*R&CJER...2_P.£_££L_i NAME..,. 1 


£HAS&£II5_5_0£_£lkl_NftME i 


"T . 

_i 


£HARftCJER 4 0£ £IUL.N&M| t 1 


.- £HAS&c.lER_5_g£_£iL.E_W4HE i 


t 

4 


CHARACTER 6. Of FILE NAMEt 1 


CU4Bft£IEB-Z-e£-EikE-S4BEj. 


T 
4 


CHiRftCJiR 8 OE ERE NAME. 1 


T LTRK T 




LSTBLK '"1 


1 
061" 


r I„L&si_i8ft£|< 1 


Lfil 


TAPNUM T DUPL T TRK T 




FILSTRT 1 


1 
1' 


! yMSi fflfr I i^r u { w 'i** v t 


■r-y\y*i iM V. | y : yq* ? i >'"tfayS;^ \.<* l :\ 
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DATA LAYOUTS 
TAPE STATUS 
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01 K THIS IS THE LAYOUT OF THE MEMORY OF EACH TAPES SOFTWARE STATUS. 

02 * EACH TAPE HAS AN ENTRY WHICH SHOWS ITS PRESENT TAPE POSITION (PTP), 

03 U IF IT IS OUT OF SERVICE (TSTATE), IF IT HAS PASSED A COMPARE WHILE 

04 # OUT OF SERVICE (COMPROK), IF THE PTP IS CURRENT (POSOK), IF IT IS 

05 It TSTATE IS SET), AND FINALLY IF A BLOCK SEOUENCE ERROR OCCURRED 

06 It IN THE READ ONLY STATE (REDON) (WHICH DOUBLES AS A DIA6. PASS BIT IF 

07 H DURING A READ OPERATION. 



08 TUSTAT LAYOUT 

09 PTP ITEM 

10 TSTATE ITEM 

11 COMPROK ITEM 

12 POSOK ITEM 

13 REDON ITEM 

14 SQERR ITEM 

15 LOEND 



1,FLTBLK 
11 

1 
1 
1 
1 
1 



(KPRESENT TAPE POSITION 

*00S BIT. 

^COMPARE BIT 

/^POSITION VERIFIED 

It TAPE IN READ ONLY STATE. 

0BLOCK OUT OF ORDER READ IN 



00 1 sqerr~T~redon~T~posok"TcomprokTtst ATE~T 



:Q95-_16_*. 



"PTP 



~TS"*T — 9 — T — 5 r 



_EBESEM^_I&EE_E^lIlfiN. 



, 

T — 3 — 1 — ? — T \ I ..6" ~ I 
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DATA LAYOUTS 

TAPE UNIT COMMAND LAYOUT 
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00 1 T TRK S™ ~~T" 

1***************1 TRACK CODES I 
I — Tr-T—TTT- 1 3 T tB i f-T" 



01 
02 

03 DVIC 

04 MANE 
OS 

06 COM 

07 TRKS 
08 

:QQ2=_Q£_S 

COM 



* THIS IS THE LAYOUT OF A TAPE UNIT CONTROLLER ORDER. 
LAYOUT 1,FLTBLK 

6 n DEVICE CODE 

1 H MANUAL ENABLE 
1 
4 n COMMAND CODE 

2 n TRACK CODES 



ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
LOEND 



"~T~" "~T~MANE~~T~" 



.y— T _-_ r __ r _ K3 



DVIC 

iiyici c_egi_ 



? t — t — r — D~ 
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603 



DATA LAYOUTS 

TAPE STATUS REGISTER. 



01 
02 



0:43:06 2/06/81 **** 
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n THIS IS THE LAYOUT OF THE TAPE STATUS RECIEVEO FROM 

It SEN0IN6 THE TAPE STATUS ORDER. THIS STATUS IS TYPICALLY 



03 H REFERED TO AS THE SECONDARY STATUS ORDER RESPONSE. 



04 TAPSTAT LAYOUT 

05 DEVICODE ITEM 

06 WENBL ITEM 



TAPST_AI„ 
001 MOP 



4 — T?~ ! — T3~l — 12—1 — TT" 



07 TUR 

08 EOT 

09 TOR 

10 TIM 

11 DDT 

12 MTCE 

13 REWND 

14 BOT 

15 MOP 
16 

-003- 17 * „ 

"T TIM "TOR" 

-\— W - 



ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
LOEND 



,FLTBLK 



+-*H-r-+ 



"tOT 
"7~ 



■"TwenbT" 



Id DEVICE CODE FOR TAPE. 
H WRITE ENABLE. 

# TAPE UNIT READY. 
K END OF TAPE. 

# TAPE OFF RECL. 
H TAPE IN MOTION 

# DATA DETECT. 

# MAINTENANCE ACTIVE. 
$ TAPE REWINDING. 

11 BEGINNING OF TAPE 

# MANUAL OPERATION ACTIVE 



DEVICODE 

r efy f i£i J c_ep.E r EP.g_i&p f E*. T 



~T — — I 
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A04 



DATA LAYOUTS 

BUFFER STATUS REGISTER 
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01 

oz 



* THIS IS THE LAYOUT OF THE BUFFER STATUS REPLY TO A BUFFER 

* STATUS REQUEST. 



03 BUFSTAT LAYOUT 1,FLTBLK 



04 

05 PPE 

06 BR 

07 ROY 



BUFSIAT. 

00 1 FILL T BOFL 

I I 

I — T5 T — W 



OB 
0? 

10 UNST 

11 STUFF 

12 ACTIV 

13 BOFL 

14 FILL 
15 

_, , , -002- 16 n 

T ACTIV T STUFF T UNST T~L0DST~7lNT0FF~T 

-I-tH A *— 



ITEM 
ITEM 
ITEM 
ITEM 



INTOFF ITEM 
LOOST ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
LOEND 



I II I H I 10 



-RDY T~~BR" 



"PPE"T 



H DEVICE CODE FOR BUFFER 
K PARALLEL PARITY ERROR. 
U BUFFER READY FLAG. 

* BUFFER UNIT READY 
H INTERRUPT OFF. 

» LOAD STATE SET UP. 
n UNLOAD STATE SET UP. 
(CSTUFF ACTIVE 
U ACTIVE TAPE BUFFER. 
U BUFFER OVERFLOW SET. 

# FILL OCCURIMG. 



- 5 — T — j-BIviEE^OBE^Ea^BUFEER 



1 — 5 — I 
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CONSTANT DEFINITIONS 




CONSTANTS 






0000001 




0000000 




0000002 


■ 


0000003 




0000004 




0000005 




0000006 




0000007 




0000010 




0000011 




0000012 


. 


0000013 










• 


0004000 




0010000 


• 


0014000 




0000000 


' 


0000002 




0000007 




0000015 




0000013 



BO* 



01 # TCB STATE CONSTANTS 



02 COPYST 


EQU 


1 


03 MONST 


EQU 





04 REREAD 


EQU 


2 


05 POSST 


EQU 


3 


06 READST 


EQU 


4 


07 SEUST 


EQU 


5 


08 TIHST 


EQU 


6 


09 VERST 


EQU 


/ 


10 WRITST 


EQU 


8 


11 MRFST 


EQU 


9 



13 REPAK EQU 10 

14 DIA6ST EQU 11 



17 # STATUS CODES FOR TUSTAT 



18 ACCO EQU 

19 ACC1 EQU 

20 OOS EQU 

21 STATOK EQU 



25 TUUTIL EQU 

26 AUDITFN EQU 

27 TUCDEV EQU 

28 BUFDEV EQU 



1*ES(TSTATE> 
2*ES(TSTATE) 
3*ES(TSTATE) 
0*ES<TSTATE) 



2 
7 

13 
11 



• • 
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U TAPE TO TAPE COPT STATE 
« MONITORING STATE 
U MAINTENENCE STATE 

# POSITIONING STATE 
H READING STATE 

(K SIEZURE STATE 

# TIMING STATE 

» VERIFY POSITION STATE 

# WRITING STATE. 

# TU INIT STATE (RESULTS FROM SYSTEM MRF, 
LEVEL 2) 

*TAPE REPACK STATE 



32 TUENABL TEXT 'TAPETBL+1 ' 



0000215 



36 TMSTOP EQU 



0(215) 
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CONSTANT DEFINITIONS 
CONSTANTS 



0:43:06 



Z/06/81 **** 



0123206 



0123206 



0123206 



0123206 



0123206 

0123206 
0123206 

0123206 
0123206 

0123206 

0123206 



01 


# 


02 


f 


03 


* 


04 


n 


05 


n 


06 


n 


07 


tt 


08 


tt 


09 




10 


it 


11 


tt 


12 


# 


13 




14 


H 


15 


It 


16 


u 


17 


H 


18 


H 


19 


It 


20 




21 


tt 


22 


tt 


23 


n 


24 




25 


if 


26 


n 


27 


tt 


28 


H 


29 


n 


30 




31 


If 


32 


If 


33 




34 


tt 


35 




36 


If 


37 


ft 


38 




39 


tt 


40 




41 


n 


42 


it 


43 


n 


44 




45 


tt 


46 


H 


47 


K 


48 




49 


K 



CTAPH 

THE CTAPH PROGRAM IS GIVEN CONTROL ONCE EVERY BASE LEVEL LOOP. 
THE CONTROL IS GIVEN TO THE CTAPH ENTRY POINT BY CBLM. THIS CODE 
HAS THE RESPOSIBILITY TO DO A WICK BASE LEVEL DETECTION TEST 
ON ALL THE DEFINED TDC'S. THIS INVOLVES ASSURING THAT THE TDC'S 
APPEAR TO BE PROGRAM ACCESSABLE, HAVE A CARTRIDGE IN PLACE AND 
NOT WRITE PROTECTED AND THAT THE BUFFER UNITS ARE ACCESSABLE AND 
FINALLY THAT THE TAPES DO NOT APPEAR TO BE OFF OF THEIR REELS. 
TAPES MAY BE REMOVED FROM SERVICE IF ANYTHING LOOKS IRREGULAR. 

THE NEXT RESPONSIBILITY OF THIS BASE LEVEL MONITOR IS TO PASS 
CONTROL TO THE STATE SPECIFIED IN THE 1ST 4 BITS OF THE 
STATEWRD. TWELVE SEPERATE STATES HAVE BEEN DEFINED. 

1. THE MONITOR STATE IS THE BASE LEVEL CODE WHICH 
INTERROGATES THE 'REQ' BITS IN THE TCB FOR INITIATING 
NEW REQUESTS. THIS STATE HAS A BINARY ZERO VALUE IN 
THE STATEWRD FIELD. THIS STATE GAINS CONTROL WHEN THE 
TCB IS NOT BEING USED BY A CLIENT OR THE CLIENTS LAST 
REQUEST HAS BEEN COMPLETED. 

IF THE TCB IS IDLE('REQ'=7> THE MONITOR STATE CAN AND 
WILL INITIATE A TAPE REPACK IF ONE HAS BEEN SCHEDULED 
AND NO CLIENT IS ACTIVE IN THE TCB. 

IF A NEW CLIENT REQUEST IS DETECTED, THE MONSTATE WILL PASS 
CONTROL TO THE FIRST ENTRY POINT OF THE PARTICULAR REQUEST. 
THESE FIRST ENTRY POINTS WILL SET UP INITIAL CONDITION AND 
SCHEDULE OTHER STATES TO GO IN PROGRESS TO CONTINUE THE 
EXECUTION OF THE CLIENT REQUEST. 

2. THE COPY STATE CONTAINS THE SUBSTATE CONTROL FOR COPYING A 
FILE OFF OF ONE TAPE TO THE MATE UNIT, IF IT IS IN SERVICE. 

3. THE RETRY STATE IS THE ERROR RECOVERY STATE. 

4. THE POSITION STATE IS RESPONSIBLE FOR PLACING THE 
TAPES AT A SPECIFIED BLOCK NUMBER. 

5. THE READ STATE CONTROLS THE READING OF A TAPE BLOCK(S). 

6. THE SEIZURE STATE IS THE FIRST STATE CLIENTS GO THROUGH. 
IT POSITIONS THE CLIENT AT THE START OF THE REQUESTED 
FILE. IT HANDLES THE DIRECTORY LOOKUP. 

7. THE TIMING STATE MEASURES ELAPSED TIME AND WILL NOT PASS 
CONTROL TO ANOTHER STATE UNTIL THE REQUESTED TIME HAS 
ELAPSED. 

8. THE VERIFY STATE WILL ESTABLISH WHERE THE TAPE HEADS 



W77D 
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CONSTANT DEFINITIONS 
CON3TANTS 



0123206 
0123206 
0123206 
0123206 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 



DO* 



ARE POSITIONED. 



0:43:06 2/06/81 **** 
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K 9. THE WRITE STATE WILL CARRY ON THE OPERATIONS RE8UIRED TO 

H WRITE A BLOCK ON THE TAPE. 

U 10. THE MRF STATE HANDLES THE RE«UIRED OPERATIONS THAT FOLLOW 

H A SYSTEM INITIALIZATION. 

# 11. THE PACK STATE HANDLES THE SOFTWARE OR MANUAL REQUEST 
H FOR THE REPACKING OF THE INSERVICE TDC'S. 

It 12. FINALLY THE DIA6 STATE IS USED TO AVOID THE MONITOR 

U STATE DURING DIAGNOSTICS. IT IS A NULL STATE WHICH 

# SIMPLY PASSES CONTROL BACK TO CBLM. 
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TAPE HANDLER 
MAIN TCB HANDLER 
0123206 



EQ4 

0:43:06 2/06/81 **** 
CTAPH W77D 

01 CTAPH 

02 H THIS CODE IS THE BASE LEVEL HONITOR SECTION OF THE TAPE HANDLER. 

03 * IT IS ENTERED FROM CBLM ONCE A SYSTEM SCAN. IT IS CHARGED WITH 

04 » SCANNING THE TAPE UNITS TO DETECT GROSS ERROR CONDITIONS SUCH AS 

05 # NO SOFTWARE LINK TO THE INSERVICE TDCS, WRITE PROTECT ON AND THE 

06 X APPARENT REMOVAL OF A CARTRIDGE FROM THE TRANSPORT. IT ALSO CHECKS 

07 H FOR A TAPE OFF REEL FAILURE. REMOVAL OF A TDC CAN BE INITIATED HERE. 



0123206 


01 


0123210 01 


0123211 


01 


0123213 


01 


0123214 


01 


0123215 


01 


0123216 




0123216 


01 


0123220 01 



000000 130542 020006 TDATA 

000002 004157 

000003 031040 043317 CTSD 

000005 051347 

000006 054174 0123410 

000007 040070 

000010 131600 043337 CTSD 
000012 042606 



11 
12 
13 
14 
15 
16 
17 
18 
1? 



THE FIRST SECTION OF CODE CHECKS FOR THE HAND SHAKING BETWEEN 
THE DIAGNOSTIC AND CTAPH. CERTAIN OR ALL CTAPH PROGRAM OPERATIONS 
MUST BE INHIBITED UNDER CERTAIN DIAGNOSTIC TESTING. THESE PROHIBITIONS 
ARE CONVEYED IN TWO BITS OF THE TCB (DIAGBITS). IF THE FIRST BIT IS 
SET THE DIAGNOSTIC HAS REQUESTED THAT THE TAPE HANDLER REMAIN TOTALLY 
DORMANT. THE SECOND BIT SET WILL INDICATE THAT THE DIAGNOSTIC WISHES 
THE TAPE HANDLER TO GO INTO A NO-RECOVERY STATE. IT WILL SERVICE 
ALL INTERRUPTS BUT WILL NOT I") ANY RECOVERY OR ERROR PRINTOUT OPERATIONS. 



LL 



21 
22 
23 
24 
25 



-001- 



SN 

LAL 

TBS 

BC 

L 

26 TAPSTORD 

27 LAL 

28 LX 

29 TAPEHL OW 

30 NOTE 



R6,TAPETBL U GET BX CONSTANT FOR NUMBER OF TAPE UNITS 

AVAILABLE. 
R6,1 

R2,TCBADR,RA0 * SET \iP TCBADR 
N(DIAGBITS)(RA0),S(DIAGBIT3) #IS OIAG IP 
BACKOASEX 
R3,N(TAPN0)(RA0) 



R8,TUSTAT,RA1 

R8,R6(RA1) 

0(13) 



#GET STATUS OF UNIT ABOUT TO BE SCANNED. 

n 11914 



************* the FIRST ADDRESS OVERWRITTEN IS 000013 ********** 



0123221 01 000013 037000 114736 0114736 



33 CPATCH2 BGNP 0(627) H 11914 

-001- 34 BL XXX369 

-001- 35 NOTE CPATCH2 'CSECV 

-001- 36 NOTE ***************** PATCH AREA BEGINS AT 000627 **************** 



0114736 

0114736 04 000627 124213 

0114737 04 000630 031620 043023 CTSD 

0114741 04 000632 011626 

0114742 04 000633 030230 CTSD 

0114743 04 000634 011226 

0114744 04 000635 002620 177400 

0114746 04 000637 031622 020007 TDATA 
0114750 



-001- 39 XXX369 PATCHAREA 

# *** CHECK THE TDC STATUS AND UPDATE TDC LAMP ON THE SSP 



41 
42 
43 
44 
45 
46 
47 
48 
49 



TBN R8,S(TSTATE) 

LAL R9,CCKTSTAT,RA1 

RR R9,R6 

ICF R9,S(TDC0) 

RL R9,R6 

STM R9,0(RA1),MSK(8,8) 



# TDC STATUS BIT 



H UPDATE TDC STATUS WRD 



'i" m,\J\nn\i ,r\*r-\o,o> w urufllt IDC STATUS WRD 
************************************************************ 

LAL R9,TUENABL,RA1 

ENDP n 11914 
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TAPE HANDLER 
MAIN TCB HANDLER 
0114750 04 000641 037000 123223 0123223 



-001- 01 


BL 


-001- 02 


NOTE 


-001- 03 


NOTE 



F04 



0:43:06 2/06/81 **** 

CTAPH W77D 

KXX371 

************ LAST PATCH ADDRESS USED IS 000642 *************** 

***** NUMBER OF PATCH WORDS USED IS 12 (DECIMAL) ******** 



0123223 

0123223 01 000015 103641 002015 

0123225 



-001- 06 XXX371 OHCONTINUE 

07 LI R10,TSTAT 

08 EOW It 11914 

-001- 09 NOTE *************** THE LAST AOORESS OVERWRITTEN IS 000016 ********** 



0123225 01 000017 024213 

0123226 01 000020 055002 — 

0123227 01 000021 026246 — 



0123230 



12 
15 
14 



TBN 
BNC 
SBN 



R8,S(TSTATE> 

NOMAN 

R10,S(MANE) 



IMS UNIT OOS 

#N0 

#SET MANUAL ENABLE 



0123230 



0123230 



0123230 



0123230 

0123230 01 000022 142626 

0123231 

0123231 01 000023 073032 

0123232 01 000024 124001 

0123233 01 000025 054032 0123265 

0123234 01 000026 017660 177715 

0123236 01 000030 003024 

0123237 01 000031 055027 0123266 

0123240 01 000032 024271 

0123241 01 000033 055012 0123253 

0123242 01 000034 051336 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 

-001- 38 
39 

41 
42 
43 

45 
46 
47 
48 
49 



# THE TDCS THAT ARE DEFINED WILL BE SCANNED WITH A TAPE STATUS ORDER. 
n ALL UNITS MUST REPORT BACK WITH A STATUS THAT INDICATES 

It 1. WRITE ENABLE 

# 2. TAPE UNIT READY 
H 3. NO TAPE OFF REEL 

K THE TAPE OFF REEL FLAG MUST BE UP ON 2 CONSECUTIVE SCANS IF THE TAPE 
It IS MOVING (TIM). THIS IS BECAUSE IF THE TAPE IS MOVING DUE TO SOME 

# LEGITIMATE OPERATION AND JUST HAPPENS TO BE CROSSING A BOT/EOT HOLE 

# A MOMENTARY TAPE OFF REEL FLAG WILL GO ACTIVE. IF THE TAPE IS NOT 
It MOVING AN ERROR CONDITION IS NOTED. 

K ALL OF THE ABOVE ERRORS WILL RESULT IN THE REMOVAL OF THE TDC FROM 
U SERVICE. THE TCB WILL BE CLEARED IF THE TAPE BEING REMOVED IS ACTIVE 

# IN THE TCB. 
NOMAN 



LX 
CALL 

BSAI 



R9,R6(RA1) 
ORDEXCAB 

ordexCab 



It OBTAIN ENABLE ADDRESS. 

H SEND STATUS TO TAPE UNIT. JUST CARE IF THE 

TAPE 
n SUBROUTINE ORDEXCAB IS IN PROGRAM CTAPH 



fit RESPONSE SINCE IT MAY BE READING AND FAILING CRC CHECK. 

TBN R0,1 

BC NORESPONSE 

CIRM R11,M(TUR)+M(WENBL)+TUCDEV,0,M(WENBL)+M(TUR)+M(DEVICODE) # CHECK 

THAT TAPE RESPONDED AND TUR SET. 

LN R1,TURER 

BNC REMOVMES 

TBN R11,S(T0R) IMS TAPE OFF REEL 

BNC TUSCAN 

TBS N(TORLOK)(RA0),S(TORLOK) MAS THE TAPE BEEN OFF REEL 
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604 


TAPE HANDLER 








0:43:06 2/06/81 **** 


MAIN TCB HANDLER 






CTAPH W77D 


0123243 01 


000035 




0123251 


01 BC 


ZEROMV 


0123244 01 


000036 


024272 




02 TBN 


R11,S(TIM) #IS TAPE MOVING. 


0123245 01 


000037 


055006 


0123253 


03 BNC 


TUSCAN 0NO IGNORE AT THIS TIME - MAY BE BOT HOLES 


0123246 01 


000040 


061336 




04 SBS 


N(TORLOK) (RAO),S (TORLOK) 


0123247 01 


000041 


061356 




05 SBS 


N(SNER)(RAO) / S(SNER) 0FLAG ERROR IN SCAN. 


0123250 01 


000042 


053031 


0123301 


06 B 


BXTST 


0123251 








08 ZEROMV 




0123251 01 


000043 


162336 




09 ZBS 


N(TORLOK)(RAO),S<TORLOK> (KCLEAR FLAG 


0123252 01 


000044 


053014 


0123266 


10 B 


REMOVMES 


0123253 








14 TUSCAN 




0123253 01 


000045 


120066 




15 CR 


R3,R6 #IS THIS THE UNIT SPECIFIED IN THE TCB 


0123254 01 


000046 


055003 


0123257 


16 BNC 


NOSAVE 


0123255 01 


000047 






17 HN 


R9,9 KfSAVE FOR LATER USE 


0123256 01 


000050 


006113 




18 LR 


R4,R11 ffSAVE RESPONSE FOR BASE LEVEL STATE IN 
CONTROL. 










23 » THE BUFFER 


t 
UNIT WILL NOW BE SCANNED. IT MUST NEVER RESPOND WITH A 










24 If MAINTENANCE START CODE. IF A MAINTENANCE START COOE OR NO RESPONSE 










25 It IS SENSED, 


A REMOVAL OF THE TDC WILL BE EXECUTED. 


0123257 








26 NOSAVE 




0123257 01 


000051 


103641 000013 




27 LI 


R10,BSTAT * SEND A BUFFER STATUS CHECK TO BUFFER UNIT. 


0123261 








28 CALL 


OROEXCAB 


0123261 01 


000053 




-001- 29 BSAI 


ordexCab H SUBROUTINE ORDEXCAB IS IN PROGRAM CTAPH 


0123262 01 


000054 


156000 




30 BPAX 


RO 


0123263 01 


000055 


153016 


0123301 


31 B 


BXTST tt BUFFER UNIT RESPONSE OK, KEEP GOING 


0123264 01 


000056 


153071 


0123355 


32 B 


BUFER 


0123265 








34 NORESPONSE 




0123265 01 


000057 


103023 




35 LN 


R1,N0RESP 


0123266 








36 REMOVMES 




0123266 








37 CALL 


REMOVTU H REMOVE AND PRINTOUT 


0123266 01 


000060 


137020 126766 


0126766 


-001- 38 BSA 


REMOVTU 


0123270 01 


000062 


155011 


0123301 


39 BNC 


BXTST n TDC ALREADY REMOVED 


0123271 01 


000063 


017440 017407 




40 CIRM 


R2,ID'_E,0,M(RE«)+M(REaSTP) 


0123273 01 


000065 


054006 


0123301 


41 BC 


BXTST 


0123274 01 


C00066 


014042 




42 TZ 


R2 


0123275 01 


000067 


054004 


0123301 


43 BC 


BXTST 


0123276 01 


000070 


017143 000003 




44 CRN 


R6,R3,M(TAPN0) IS TAPE UNIT JUST REMOVED ACTIVE IN TCB. 


0123300 01 


000072 


054111 


0123411 


45 BC 


CLOSESTATE # YES ZERO OUT TCB. FORCE ABORT IF ACTIVE 


0123301 








46 BXTST 




0123301 01 


000073 


136140 123216 


47 BX 


R6,TAPST0RD # CONTINUE SYSTEM SCAN. 










48 # INITIALIZE 


TOR AUDIT BIT IF NO TOR ERROR OCCURED THIS SCAN. 


0123303 01 


000075 


051356 




49- TBS 


N(SNER)(RAO),S(SNER) *WAS ERROR SEEN THIS SCAN 
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TAPE HANDLER 
MAIN TCB HANDLER 

0123304 01 000076 062356 

0123305 01 000077 05*002 

0123306 01 000100 062336 



JSL 



01 IBS N(SNER)(RAO),S(SNER) 

0123307 02 BC N0CLRT0R 

03 ZBS N(TORL0K)(RA0),S(T0RLOK) 



0:43:06 2/06/81 **** 
CTAPH W77D 



0123307 






0123307 

0123307 01 000101 103641 002015 

0123311 01 000103 006264 

0123312 01 000104 003057 



0123313 
0123313 
0123314 
0123315 

0123316 01 

0123317 01 
0123320 01 
0123321 
0123322 



01 
01 
01 



01 

01 



0123323 01 



0123324 01 

F01 23325 01 

0123327 01 

0123331 01 

0123333 01 

F01 23335 01 

F0123337 01 

0123341 01 

F0123343 01 

0123345 01 

0123347 01 

0123351 01 

F01 23353 01 



000105 
000106 
000107 
000110 
000111 
000112 
000113 
000114 
000115 

000116 
000117 
000121 
000123 
000125 
000127 
000131 
000133 
000135 
000137 
000141 
000143 
000145 



073024 

140150 

014142 

006061 

040012 

014002 

040033 

014022 

010417 

056000 

137000 123357 
137000 124721 
137000 124763 
137000 124151 
137000 123514 
137000 123632 
137000 124143 
137000 123740 
137000 124325 
137000 124643 
137000 125277 
137000 123727 



0123357 
0124721 
0124763 
0124151 
0123514 
0123632 
0124143 
0123740 
0124325 
0124643 
0125277 
0123727 



07 
08 
0? 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
-001- 21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



U ALL THE PRELIMINARY BASE LEVEL OPERATIONS HAVE BEEN COMPLETED. 
n NOW PREPARATIONS ARE MADE TO PASS CONTROL TO THE STATE IN CONTROL 
U OF THE TCB. (THE LOW 4 BITS OF STATEHRD) . 

n THE TAPE CONTROLLER STATUS IS PLACED IN R11 AND THE SOFTWARE 

n TAPE STATUS WORD IS PLACED IN R3. RA1 WILL BE LEFT POINTING 

It TO THE TUSTAT WORD ASSIGNED TO THE TDC SPECIFIED IN THE TDC. 

H THE STATE'S SUBSTATE FLAGS ARE PLACED IN R1 (LOW 4 BITS OF STATEFLG). 



NOCLRTOR 
LI 



» R11 



LR 
LN 
WILL 
CALL 
BSAI 
L 

NR 
LR 
L 

NR 
L 

NR 
RLN 



R10,TSTAT 
R11,R4 
R2,MSK(4) 
CONTAIN TAPE STATUS 
STATSET 
SXTATSET 

R6,N(TAPN0)(RA0) 
R6,R2 
R3,R1 

RO,N(STATEWRD)(RAO) 
R0,R2 

R1,N (STATEFLG) (RAO) 
R1,R2 
R0,1 



0RESTORE TAPE STATUS 



SET R3=PTP AND RAJ 
SUBROUTINE STATSET 



TO STATUS WORD - 

IS IN PROGRAM CTAPH 



H SET UP TAPE NUMBER AS SPECIFIED IN TCB. 



K R1 CONTAINS STATE FLAGS (SUBSTATE) 



It GO TO THE STATE IN CONTROL. 



BPAX 

BL 

BL 

BL 

BL 

BL 

BL 

BL 

BL 

BL 

BL 

BL 

BL 



RO 

KONSTATE 

COPYSTATE 

RETRYSTATE 

POSIT 

READSTATE 

SIEZURE 

TIMING 

VERIFY 

WRITESTATE 

MRFINIT 

PACKTAPE 

BACKBASE 



U GO TO STATE IN CONTROL 
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TAPE HANDLER 
MAIN TCB HANDLER 



0123355 

0123355 01 000147 103025 



0123356 01 000150 053710 0123266 



B05 



0:43:06 2/06/81 

CTAPH W77D 



01 H A BUFFER ERROR EXISTS, SET UP PRINT CONTROL. 

02 BUFER 

03 LN REORDER tf SET UP PRINTOUT CONTf.OL. 



05 



B 



REMOVMES 
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C05 


TAPE HANDLER 










0:43:06 2/06/81 **** 


BASE HANDLER TASK DISPENSOR 










CTAPH W77D 


0123357 




01 


MONSTATE 






02 


# 


THE 


MONITOR STATE (MONSTATE) IS ENTERED WHENEVER THE STATEWRD IN 






03 


It 


THE 


TCB IS ZERO. THIS CAN OCCUR WHEN THE TCB IS NOT UNDER CLIENT 


■ 




04 


ft 


CONTROL OR WHEN A SPECIFIC CLIENT REQUEST HAS BEEN COMPLETED. IN 






05 


ft 


ANY 


CASE THE TCB IS AWAITING A NEW REQUEST TO BE PLANTED IN THE 






06 


ft 


REQ B TS. 


0123357 




07 












08 


ft 


THE 


FIRST OBJECTIVE OF MONSTATE IS TO OBTAIN THE REQ BITS AND 






09 


ft 


RESTORE THEM TO THE IDLE STATE. THEN IT TRANSFERS CONTROL BASED UPON 




. 


10 


ft 


THESE BITS TO 8 SEPERATE ENTRY POINTS. MOST OF THESE ARC INITIAL ENTRY 






11 


ft 


POINTS TO CLIENT REQUEST SERVICING SETUP ROUTINES. OTHERS PERFORM 






12 


ft 


MAINTENANCE FUNCTIONS AND ONE IS THE SOFTWARE ASSOCIATED WITH THE 


' 




13 


ft 


IDLE 


REQ BIT CONFIGURATION ITSELF. 


0123357 




14 












15 


ft 


THE 


8 ENTRY POINTS ARE; 


0123357 


• 


16 








_ 




17 


ft 


1. 


MRFPROG- RESPONSIBLE FOR ACTIONS TO BE TAKEN AFTER A MRF. 






18 


ft 




THE VALUE OF REQ FOR THIS REQUEST IS ALWAYS ZERO. THE REASON 






19 


ft 




IS A MRF WILL CLEAR ALL TAPE CONTROL WORDS THUS PROVIDING AN . 


• 




20 


If 




EASY DETECTION FOR THE TAPE PROGRAMS THAT A MRF HAD OCCURRED. 


0123357 




21 












22 


ft 


2. 


READPROG- THE INITIAL ENTRY POINT FOR A CONTINUOUS READ REQUEST. - 


0123357 




23 












24 


* 


3. 


READ1PR0G- THE INITIAL ENTRY POINT FOR A READ-A-BLOCK REQUEST. 


0123357 




25 












26 


ft 


4. 


WRITEPROG- THE INITIAL ENTRY POINT FOR A WRITE-A-BLOCK REQUEST. 


0123357 




27 












28 


ft 


5. 


POSITIONLOD- THE INITIAL ENTRY POINT FOR A POSITION OR BACKSPACE. 






29 


ft 




REQUEST. 


0123357 




30 












31 


ft 


6. 


CLOSESTATE- THE INITIAL ENTRY POINT FOR A CLOSE REQUEST. 


0123357 




32 












33 


ft 


7. 


COPYPROG- THE INITIAL ENTRY POINT FOR A FILE COPY REQUEST. 


0123357 




34 












35 


ft 


8. 


IDLSTATE- THIS IS THE ENTRY POINT FOR THE STABLE REQ BIT 






36 


ft 




CONFIGURATION. IT INDICATES NO NEW REQUEST HAS BEEN OBTAINED 






37 


ft 




THIS SCAN. 


0123357 01 000151 103047 


, 


39 






LN R2,IDLE 


0123360 01 000152 002040 000017 




40 






STM R2,N(REQ)<RA0),M<REQ> ftlDLE OUT TCB AND GET CURRENT REQUEST 


0123362 01 000154 003402 000017 




41 






NI RO,M(REQ) 


0123364 01 000156 056000 




42 






BPAX RO ft GO TO REQUESTED ROUTINE 


0123365 01 000157 153073 


0123460 


43 






B MRFPROG ft END 


0123366 01 000160 153040 


0123426 


44 






B READPROG 


0123367 01 000161 153052 


0123441 


45 






B READ1PR0G 


0123370 01 000162 153054 


0123444 


46 






B WRITEPROG 


0123371 01 000163 153250 


0123641 


47 






B POSITIONLOD 


0123372 01 000164 153017 


0123411 


48 






B CLOSESTATE 


0123373 01 000165 153105 


0123500 


49 






B COPYPROG 
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TAPE HANDLER 

BASE HANDLER TASK DISPENSOR 



0:43:06 2/06/81 **** 
CTAPH W77D 



0123374 



0* IDLESTATE 



0123374 01 

0123375 01 

0123376 01 

0123377 01 
0123401 
0123402 

0123403 01 

0123404 01 

0123405 01 

0123406 01 
0123407 

0123407 01 
0123410 
0123410 01 



01 
01 



000166 151327 

000167 055012 0123407 

000170 040000 

000171 003402 174000 

000173 055006 0123407 

000174 003012 

000175 044012 

000176 062327 

000177 061100 

000200 053321 0123727 

000201 162100 

000202 153317 0123727 



05 
06 

07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 

9 



tt THIS CODE IS EXECUTED WHEN NO STATE EXISTS IN THE STATEWRD. IT 
* WILL CHECK TO SEE IF A REPACK OF THE TAPE HAS BEEN SCHEDULED. THIS 
tt IS DONE THROUGH THE INTERROGATION OF THE REPK BIT IN THE TCB. A 
It REPACK HILL BE ALLOWED ONLr IF THE TAPE SYSTEM HAS NO CLIENT IN 
It CONTROL OF IT. THE ABSENCE OF A CLIENT WILL RESULT IN THE REPACK 
H STATE SET UP IN THE TCB STATEWRD. IF A CLIENT IS IN CONTROL, THE 
n REQSTP BIT IS RESET TO ALLOW FURTHER CLIENT REQUESTS TO BE HONORED. 



TBS 

BNC 

L 

NI 

BNC 

LN 

ST 

ZBS 

SBS 

B 



20 
21 

22 NOREPK 

23 ZBS 

24 BACKBASEX 

25 B 



HI REPACK IS REQUESTED IS TCB IDLE 
#SET UP REPACK STATE 



N(REPK) (RAO), S (REPK) 

NOREPK 

RO,N(CLIENT)(RAO) 

RO,M(CLIENT) 

NOREPK 

RO,REPAK 

RO,N(STATEWRD)(RAO) 

N(REPK) (RAO), S (REPK) #CLEAR REPACK REQUEST BIT 

N(REQSTP)(RAO),S(REQSTP) tt STOP FURTHER REQUESTS 

BACKBASE 

N(REQSTP)(RAO),S(REQSTP) If ALLOW MORE REQUESTS 

BACKBASE 
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E05 


TAPE HANDLER 












0:43:06 2/06/81 ***** 


CLOSE STATE INITIAL ENTRY 












CTAPH W77D 


0123411 








01 


CLOSESTATE 












02 


It THE 


CLOSE STATE IS ENTERED TO CLEAR UP THE TCB AND ALLOW ITS ACCESS 










03 


It TO OTHER CLIENTS. THE CLIENT IN CONTROL OF THE TCB MAT EXECUTE 










04 


n THE 


•CLOSE 


MACRO TO INITIATE THE CLEARING OF THE TCB OR THE CTAPH 










05 


It PROGRAM MAY FORCE A CLOSE OPERATION DUE TO UNRECOVERABLE ERRORS. 










06 


H THE 


REPK BIT IS LEFT UNTOUCHED IN THE CLEARING OPERATION. THE 










07 


K IDLE 


STATE 


IS JAMMED INTO THE RE9 BITS. 


0123411 01 


000203 103401 000017 






09 




LI 


R0,15 










10 


TAPEHL 


OW 


0(205) It 13669 








-001- 


11 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000205 ********** 










14 


TFAPCH2 BGNP 


0(1100) * 13669 


0123413 01 


000205 037000 120074 


0120074 


-001- 


15 




BL 


XXX384 








-001- 


16 




NOTE 


TFAPCH2 'CSECT' 








-001- 


17 




NOTE 


***************** PATCH AREA BEGINS AT 001100 **************** 


0120074 






-001- 


20 


X*X384 


PATCHAREA 


0120074 07 


001100 131420 043317 


CTSD 




21 




LAL 


R1,TCBADR,RA1 


0120076 07 






22 




CIRM 


R1,DIAGT,S(CLIENT),M(CLIENT)/E(S (CLIENT)) 










23 


DPATCH 


NOTE 


! CHANGE BNCL TO BNC 


0120100 07 


001104 050400 123415 


0123415 




24 




BNCL 


LREPK 


0120102 07 


001106 061777 






25 




SBS 


15(RA1),15 










26 


DPATCH 


NOTE 


! CHANGE BL TO B 


0120103 07 


001107 037000 123417 


0123417 




27 




BL 


LNIDLE 


0120105 








28 




ENDP 


NR tt 13669 








-001- 


29 




NOTE 


************ LAST PATCH ADDRESS USED IS 001110 *************** 








-001- 


30 




NOTE 


***** NUMBER OF PATCH WORDS USED IS 9 (DECIMAL) ******** 


0123415 








33 


LREPK 






0123415 01 








34 




L •' 


R2,N(REPK)(RA1) tt MUST SAVE REPACK REQUEST 


0123416 








35 




EOW 


It 13669 








-001- 


36 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000207 ********** 


0123416 








39 




CALL 


CLR WRDS I* ZERO OUT THE ENTIER TCB 


0123416 01 


000210 073031 




-001- 


40 




BSAI 


elr~wRds It SUBROUTINE CLR WRDS IS IN PROGRAM CSYSUB 










41 


TAPEHL 


OW 


0(2TD It 13669 








-001- 


42 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000211 ********** 


0123',17 








45 


LNIDLE 




t 


0123417 01 


000211 103007 






46 




LN 


RO,IDLE # PREPARE IDLE STATE 


0123420 








47 




EOW 


It 13669 








-001- 


48 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 000211 ********** 


COMMON TAPE HANDLER 












PR-1C957-50 


0:43: 


36 2/06/81 TRADE SECRET - SEE TRADE SECRET 


RESTRICTIVE NOTICE ON COVER SHEET CTAPH ISSUE 08 PAGE 31 



F05 



TAPE HANDLER 

CLOSE STATE INITIAL ENTRT 

0123420 01 000212 024055 

0123421 01 000213 055003 0123424 

0123422 01 000214 061727 

0123423 01 000215 026004 



-001- 



0:43:06 



2/06/81 **** 



CTAPH 



W770 



WAS A REPACK REQUEST PENDING 



01 TBN R2,S(REPK) 

02 BNC NOACTION 

03 SBS N(REPK)(RA1),S(REPK) 

04 SBN RO,S(RE«STP) 

05 TAPEHL OW 0(216) U 13669 

06 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000216 ********** 



0123424 

0123424 01 000216 137000 120114 0120114 



0? NOACTION 

10 TFAPCH2 BGNP 
-001- 11 BL 
-001- 12 NOTE 
-001- 13 NOTE 



0(1120) n 13669 

XXX397 

TFAPCH2 'CSECT' 

***************** PATCH AREA BEGINS AT 001120 **************** 



0120114 

0120114 07 001120 106020 

0120115 07 001121 002420 003777 
0120117 07 001123 037000 123727 0123727 
0120121 



-001- 



-001- 
-001- 



16 WX397 PATCHAREA 

17 DDELETE NOTE 1 

18 LR 

19 STM 

20 BL 

21 ENDP 

22 NOTE 

23 NOTE 



R1,R0 

R1,N(RE«)(RA1),-(M(CLIENT)) 

BACKBASE 

NR * 13669 

************ LAST PATCH AODRESS USED IS 001124 *************** 

***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 



01234!>6 



-001- 



26 

27 



EOW 
NOTE 



H 13669 
*************** THE LAST ADDRESS OVERWRITTEN IS 000217 ********** 
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0:43:06 2/06/81 **** 


READ STATE INITIAL ENTRY 






CTAPH W77D 


0123426 


i 




01 
02 
03 
04 


READPR06 

K THE READ STATE INITIAL ENTRY POINT WILL SEND A TAPE READ ORDER 
» TO THE TAPE DEFINED IN THE TCB ON THE TRACK SPECIFIED BY THE 
H TRACK BITS IN THE TCB. 


0123426. 






05 
06 
07 
08 

09 


# A 3 SECOND DELAY IS SET UP BY THIS ENTRY POINT WHICH WILL 

# BE INTERROGATED BY THE READ STATE. ONCE THE TIMEOUT OCCURES 
tt THE READ STATE WILL INVESTIGATE THE SUCCESS OF THE INTERRUPT 
tt IN HANDLING THE READ OPERATION. 


0123426 






10 
11 
12 
13 

14 
15 
16 


tt THE 3 SECOND DELAY ALLOWS THE INTERRUPT TO GAIN CONTROL ONCE 
tt DATA COMING OFF OF THE TAPE HAS FILLED UP A TDC BUFFER. THE 
tt INTERRUPT LEVEL CODE WILL FURTHER DELAY THE READ STATE FROM 
tt GAINING CONTROL UNTIL EITHER THE TOTAL READ OPERATION IS 
tt COMPLETED. G. EOF BLOCK ENCOUNTERED) OR AN ABNORMAL SITUATION 
tt ARISES CAUSING THE INTERRUPT LEVEL CODE TO STOP. 


0123426 






17 
18 
19 
20 


tt ONCE THE INTERRUPT LEVEL CODE STOPS DELAYING THE BASE LEVEL 

It READ STATE, THE TIMING STATE WILL 'TIME' OUT AND 'POP* THE STACK 

* STATEWRD. THE READ STATE SHOULD THEN GAIN CONTROL. 


0123426 01 


000220 103641 007415 




21 


LI R10,TRT tt SET UP READ COMMAND. 


0123430 






22 


SENDIT 


0123430 






23 


CALL ORDEXC 


0123430 01 


000222 173043 


-001- 


24 


BSAI OXRDEXC tt SUBROUTINE ORDEXC IS IN PROGRAM CTAPH 


0123431 01 


000223 155160 0123611 




25 
26 

27 


BNC RMVANDPO 
tt A TIME REOUEST WILL BE ISSUED TO ALLOW TIME FOR THE INTERRUPT TO 
It GAIN CONTROL. 


0123432 






28 


BGNTIM SEC=3 *MUST TIME LONG FOR BOT CONDITIONS. 


0123432 




-001- 


29 


CALL TIHOUT 


0123432 01 


000224 073022 


-002- 


30 


BSAI TXIMOUT H SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 


0123433 01 


000225 000171 


-001- 


31 


DATA 121 It TIMOUT+1 


0123434 01 


000226 144014 




32 


ST R0,N(TIMEK)(RA0) 


012343S 01 


000227 062200 




33 


ZBS N<IOCMP)(RAO),S(IOCMP) 


0123436 01 


000230 003004 




34 


LN RO,READST 


0123437 01 


000231 003020 




35 


ZR R1 


0123440 01 


000232 053266 0123726 




36 


B PUSHANO 
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TAPE HANDLER 

READ 1 BLOCK STATE INITIAL ENTRY 
0123441 



0123441 01 000233 103641 003415 
0123443 01 000235 053765 0123430 



_AJL 



0:43:06 



2/06/81 **** 



CTAPH 



W77D 



01 READ1PR0G 

02 H THIS CODE USES HOST OF THE READ STATE INITIAL ENTRY PROGRAM. THE 

03 U REASON THIS IS POSSIBLE IS THAT THE ONLY DIFFERENCE BETWEEN THESE 

04 It TWO STATES IS THE ORDER SENT TO THE TDC. THE TAPE READ-A-BLOCK 

05 » ORDER IS SENT TO THE TDC DEFINED IN THE TCB ON THE TRACK DESIGNATED 

06 n IN THE 'TRACK* FIELD OF THE TDC. 



08 

09 



LI 
B 



R10,TRB 
SENDIT 



If PREPARE TO READ 1 BLOCK. 
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TAPE HANDLER 

WRITE STATE INITIAL ENTRY 
0123*44 






0123444 01 000236 151326 

0123445 01 000237 055011 0123456 

0123446 01 000240 006046 

0123447 01 000241 003544 000001 

0123451 01 000243 044150 

0123452 

0123452 01 000244 073024 

0123453 01 000245 154002 0123455 

0123454 01 000246 062326 

0123455 

0123455 01 000247 144050 

0123456 

0123456 01 000250 103010 

0123457 01 000251 053246 0123725 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 

!! 

14 
15 
-001- 16 
17 
18 
19 
20 
21 
22 
23 



WRITEPROG 

# THE WRITE INITIAL ENTRY IS RESPONSIBLE FOR TWO SIMPLE TASKS. ITS 
It PRIMARY OBJECTIVE IS TO SCHEDULE THE WRITE STATE IN THE TCB STACK 
» WORD. THE SECONDARY RESPONSIBILITY IS TO CHECK THE STATUS OF 

* THE MATE UNIT OF THE TAPE CURRENTLY IN THE TCB IF THE FILE BEING 
It WRITTEN IS AN AUTO-DUPLICATE FILE (DUP BIT=1 IN TCB). IF THE MATE 
It IS OUT OF SERVICE THE DUP BIT IS RESET AND CONTROL IS PASSED BACK 
M TO CBLM 



DUPOK 
NONDUPL 



TBS 
BNC 

LR 

XI 

ST 

CALL 

BSAI 

BC 

ZBS 

ST 



LN 
B 



N(DUP)(RA0),S(DUP) 
NONDUPL 

R2,R6 

R6,1 

R6,N(TAPN0)(RA0) 

STATSET 

SXTATSET 

DUPOK 

N(DUP)(RAO),S<DUP) 

R2,N(TAPN0)(RA0> 

R0,WRITST 
ZRPUSH 



It TEST IF TAPE FILE IS DUPLICATED. 
ft NOT DUPLICATED OR TDC NOT INSERVICE AT THIS 
TIME. 

ft COMPLIMENT TAPE NUMBER 

It TAPE NUMBERS ARE READY FOR STATUS ROUTINE. 

0GET STATUS OF ACTIVE TAPE 

It SUBROUTINE STATSET IS IN PROGRAM CTAPH 

It CLEAR DUP BIT. TU IS OOS 
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TAPE HANDLER 
MRF STATE INITIAL ENTRY 
0123460 

0123460 






0123460 01 000252 130462 020006 TDATA 

0123462 01 000254 003641 040007 

0123464 01 000256 031622 020007 TDATA 

0123466 

0123466 01 000260 136060 123475 0123475 

0123470 01 000262 003020 

0123471 01 000263 003011 

0123472 

0123472 01 000264 073044 

0123473 01 000265 137000 124165 0124165 

0123475 

0123475 01 000267 142623 

0123476 

0123476 01 000270 073032 

0123477 01 000271 153767 0123466 



01 
02 
03 
04 
05 
06 
07 
08 
0? 
10 
11 
12 
13 
14 

16 

17 



-001- 



-001- 



0:43:06 2/06/81 **** 

CTAPH W77D 

MRFPROG 

It AN INITIALIZATION OF SUFFICIENT MAGNITUDE HAS RESULTED IN THE 

* CLEARING OF CALL STORE TC8, OR A TTY REQUEST HAS RESULTED IN THE 

* INITIALIZATION OF THE TAPE STSTEM. 

* THIS ENTRT POINT HILL ATTEMPT TO INITIALIZE ALL THE DEFINED 
U TDC UNITS. ALSO THE MRF STATE MUST BE SET UP TO CONTINUE THE 

It SOFTWARE INITIALIZATION AND HARDWARE CONFIGURATION REWIRED AFTER 

* A STSTEM INITIALIZATION. THE SENDING OF AN INIT ORDER TO THE 

* TDCS MUS T BE FOLLOWED BY 50 MSEC OF DELAY TO ALLOW THE HARDWARE 

It TO SETTLE DOWN. THIS DELAY MUST BE EXECUTED PRIOR TO THE ISSUANCE 
It OF ANY FUTURE MOTION ORDER. THEREFORE THE TIMING STATE IS 'PUSHED' 
It INTO THE STACK WORD IN FRONT OF THE MRF STATE. 

LL R3,TAPETBL #GET NUMBER OF DEFINED TAPE UNITS 






LI 
LAL 



18 INITCONT 



19 
20 
21 
22 
23 
24 

26 SNDINIT 



BX 

ZR 

LN 

CALL 

BSAI 

BL 



27 
28 
2? 
30 



LX 

CALL 
BSAI 
B 



R10,INIT 
R9,TUENABL,RA1 

R3, SNDINIT 

R1 

R0,MRFST 

PUSHSTAT 

pushsTat 

BCKTIM 



R9,R3(RA1) 
ORDEXCAB 

ordexCab 
INITCONT 



It SET \)P MRF STATE 

It SUBROUTINE PUSHSTAT IS IN PROGRAM CTAPH 
It ALLOW ALL TAPE MOTION TO EASE. 



It SEND ORDER TO INIT TDCS. 

It SUBROUTINE ORDEXCAB IS IN PROGRAM CTAPH 

^CONTINUE INIT. 
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TAPE HANDLER 

COPT STATE INITIAL ENTRY 
0123500 

0123500 
0123500 
0123500 



-001 • 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 



Dpi 

0:43:06 2/06/81 **** 

CTAPH W77D 

COPYPROG 

# A CLIENT HAS REOUESTED THAT A FILE BE COPIED FROM ONE TAPE TO ANOTHER. 

# THIS CAN ONLY BE DONE BETWEEN MATED PAIRS OF UNITS. THE FILE PRESENTLY 
H OPEN HILL BE COPIED TO ITS MATE UNIT. THE UNIT NOW SPECIFIED IN THE TCB 

# WILL BE USED AS THE STANDARD FOR THE COPY. 



THE TCB MUST BE SET 
THE CLIENT MAY BE A 



UP TO POINT TO THE BEGINNING 
TWO TRACK FILE USER AND MOST 



OF THE 
LIKELY 



FILE SINCE 
HAD DONE 



SOME FILE MANIPULATION PRIOR TO THE COPY REQUEST. 

THE AUTO DUPLICATION BIT MUST BE RESET SO NOT TO CONFUSE THE WRITE 
OPERATION. ALSO NO TAPE SWITCH RECOVERY WILL BE ALLOWED THROUGHOUT 
THE COPY. 



THE INITIAL ENTRY SCHEDULES THE COPY STATE IN THE STACK WORD AND 
'PUSHES' THE POSITION STATE INFRONT OF IT TO EFFECT THE POSITIONING 
OF THE FILE TO ITS BEGINNING BEFORE THE COPY STATE GAINS CONTROL. 
TAPEHL OW 0(272) 03E8OO177 

NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000272 ********** 



0123500 01 000272 103020 

0123501 01 000273 044025 

0123502 01 000274 061345 

0123503 01 000275 062326 
0123504 



22 ZR R1 

23 ST R1,N(L0GBLK)(RA0) (HCLEAR LOGICAL INDEX INTO FILE 

24 SBS N(ERNA)(RAO>,S(ERNA) 0SWITCH RECOVERY NOT ALLOWED HERE 

25 ZBS N(DUP)(RAO),S<DUP) 0AUTO DUPLICATION IS PROHIBITED IN COPY. 

26 EOW #3E800177 

■001- 27 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000275 ********** 



0123504 01 000276 040056 

0123505 01 000277 002046 017777 
0123507 01 000301 002045 014000 

0123511 01 000303 003001 

0123512 

0123512 01 000304 073044 

0123513 01 000305 153126 0123641 



-001- 



30 L R2,N<0RIG T N)(RA0> #SET UP TO START OF FILE. 

31 STM R2,N(PHYBLK)(RA0),M(ORIGIN) 

32 STM R2,N(VERTRK)(RA0),M(VERTRK) #SET UP VERIFY TRACK 

33 LN RO,COPYST 

34 n R1 SETUP ABOVE E8UAL TO ZERO SUBSTATE. 

35 CALL PUSHSTAT #SET UP SUB-STATE. 

36 BSAI pushsTat » SUBROUTINE PUSHSTAT IS IN PROGRAM CTAPH 

37 B POSITIONLOD ^POSITION STANDARD AT BOF. 
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TAPE HANDLER 

MAIN BASE LEVE TAPE STATES 



0123514 

0123514 
0123514 

0123514 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



0:43:06 



2/06/81 **** 



CTAPH 



W770 



* THE FOLLOW CODE CONTAINS THE STATES WHICH CARRY OUT ALL THE 

U VARIOUS CLIENT REQUESTS AND ERROR RECOVERY. THET SCHEDULE A NUMBER 
It OF SUBSTATES AND OTHER STATES IN ORDER TO CARRY OUT THE MAIN CLIENT 
tf REQUEST. THE SUBSTATES ARE SCHEDULED THROUGH THE USE OF THE STATEFL6 
II WORD IN THE TCB. THIS 4-4BIT WORD TRACK THE STATEWRD ENTRY SUCH THAT 
ft STATE ENTRY ALWAYS HAS ITS 'FLAGS' IMMEDIATELY UNDER ITS STATE DESIG- 
K NATION. THE BASE LEVEL TAPE MONITOR HANDS EACH CONTROLLING STATE 
tt THESE 'FLAG' OR SUBSTATE BITS IN R1 . THE STATE THEN MAY INTERROGATE 
It OR BPAX ON THESE BITS TO SEQUENCE THROUGH THE OPERATIONS IN ITS CHARGE. 

* A STATE MAY REQUEST HELP (OR NEED IT) FROM ANOTHER STATE BY 'PUSHING' 
It THE NEW STATE INTO THE STACK. EACH STATE HAS THE OPTION OF RE-GAINING 
ft CONTROL OR JUST RELINQUISHING IT BY 'PUSHING' ITSELF UP THE STACK 

It OR 'POPING' ITSELF OUT OF THE STACK. 

It EACH STATE HAS A SINGLE ENTRY AND A SINGLE EXIT. IT GAINS CONTROL 

* FROM THE BASE LEVEL TAPE MONITOR AND PASSES CONTROL BACK TO CBLM. 

It THE COMPLETION OF A CLIENT REQUEST IS PRECEEDED BY THE LAST STATE 
It 'POPING' OUT OF THE STACK LEAVING IT ZERO THUS INVOKING THE MONITOR 
It STATE. 

It THE SUBSTATE RESIDE IN THE LISTING WITH THE STATE THAT USES IT THE 
It MOST. HOWEVER SUBSTATES CAN BE USED BY OTHER STATES. 


















COMMON TAPE HANDLER 

0:43:06 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH 



PR-1C957-50 
ISSUE 08 PAGE 



38 



• • 



• • 



F06 



TAPE HANDLER 
READ STATE 
012351* 

0123514 



0123514 



0123514 01 000306 156001 

0123515 01 000307 153052 0123567 

0123516 01 000310 153032 0123550 

0123517 01 000311 153032 0123551 

0123520 01 000312 153030 0123550 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



H THE READ STATE SERVES MOSTLY AS AN AUDITOR OF A READ OPERATION. 
n THE READ STATE WILL WAIT UNTIL A PRESET TIME OUT CONSTANT HAS 

# BEEN STAT1SFIED BEFORE INVESTIGATING THE SUCCESSFUL COMPLETION OF 

# THE INTERRUPT CODE. 

n THE INTERRUPT WILL CONTINUE TO EXTEND THE TIME OUT INTERVAL AS LONG 
H AS IT GAINS CONTROL AND CAN COPE WITH AN ERROR CONDITION IF IT MAY 

# OCCUR. WHEN THE TIMEOUT OCCURS THE READ STATE WILL INTERROGATE THE 

H IOCMP BIT TO VERIFY IF THE READ OPERATION (BE IT READ OR READ-A-BLK) 
« HAS SUCCESSFULLY COMPLETED. CERTAIN FAILURES MAY CAUSE THE INITIATION 
H OF AN ERROR RECOVERY ATTEMPT FROM THE READ STATE. 

H IF A FILE CONTINUES ON ANOTHER TRACK, THE READ STATE HAS THE RESPONSIBLITY 
ft TO REWIND THE TAPE TO BOT AND CONTINUE THE INTERRUPTED OPERATION (THIS 
H DOES NOT APPLY IF THE CLIENT GAINED ACCESS TO THE TCB THROUGH THE SEIZE 
H MACRO.) IN THE CASE OF FILES CONTINUED ON THE NEXT TRACK, THE INTERRUPT 
It LEVEL CODE DETECTS THE DEOF BIT SET IN THE LAST BLOCK READ IN BYIT. THE 
H INTERRUPT THEN ADJUSTS THE SATEFLG WORD FOR THE READ STATE TO EFECT THE 
» EXECUTION OF THE SUBSTATES INVOLVED WITH REWINDING THE TAPE TO BOT. 
BPAX R1 

# THIS IS THE LIST (TRANSFER VECTOR TABLE) OF THE SUBSTATES WHICH ARE 

# USED BY THE READ STATE. R1 IS USED TO DETERMINE WHICH STATE SHALL BE 
U ACCESSED. 



REGREAD 
VERSTPX 
REWINDTU 
VERSTPX 



0123521 01 

0123522 01 

0123524 01 

0123525 01 
0123527 01 
0123530 01 
0123532 

0123532 01 
0123533 

0123533 01 

0123534 01 



000313 140026 

000314 003420 004000 

000316 044026 

000317 003422 014000 

000321 054662 0123411 

000322 002025 014000 

000324 140255 

000325 073045 

000326 116572 007477 



-001- 



32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



THIS LAST SUBSTATE IS USED TO ADJUST THE TCB TO THE NEXT TRACK IN 
HANDLING BLEED OVER FILES. THIS SUBSTATE GAINS CONTROL AFTER THE 
TAPE FAST REVERSE COMMAND HAS TERMINATED. A CHECK IS MADE TO ASSURE 
THAT NO BLEED OVER OCCURED ON TRACK 4 TO THE NON-EXISTENT TRACK 5. 
FINALLY IF A READ CONTINUOUS WAS INTERRUPTED IT WILL BE RESTARTED 
ON THE NEW TRACK. NOTE THAT SEEZ CLIENTS ARE NOT AFFECTED BY THIS 
LOGICAL FILE CHARACTERISTIC. 

^PREPARE TO GO TO NEXT TRACK 



POPY 



L 

AI 

ST 

NI 

BC 

STM 

L 

CALL 
BSAI 
LRM 



H OVERFLOW ERROR. 



R1,N(TRACK)(RA0) 

R1,ES(TRACK) 

R1,N (TRACK) (RAO) 

R1,M(TRACK) 

CLOSESTATE 

R1 ,N(VERTRK) (RAO),M(VERTRK> 

R10,N(LSTC0M)(RA0) ^PREPARE TO SEND LAST READ COMMAND. 

POPSTATE ((CLEAR. OUT READ STATE 

popstAte * SUBROUTINE POPSTATE IS IN PROGRAM CTAPH 

R7,R10,M(DVIC)+M(C0M) 
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TAPE HANDLER 








0:43:06 2/06/81 **** 


READ STATE 








CTAPH W77D 


0123536 01 000330 003565 007415 




01 




CI R7,TRT 


0123540 01 000332 055167 


0123727 


02 




BNC BACKBASE #IF READ WAS NOT GIVEN RETURN TO IDLE STATE 


0123541 01 000333 051365 




03 




TBS N(SEEZ) (RAO), S (SEEZ) 


0123542 01 000334 054666 


0123430 


04 




BC SENDIT 


0123543 01 000335 030420 045266 


LAYOUT 


05 




LL R1,I OBUF 




0123545 01 000337 024035 




06 




TBN R1,s7E0F) 




0123546 01 000340 054161 


0123727 


07 




BC BACKBASE 


HIT EOF WAS DETECTED, NO READ SHOULD BE 
INITIATED. 


0123547 01 000341 053661 


0123430 


09 




B SENDIT 


tfSEND COMMAND AND RE-START READ STATE. 


. ■ 




13 


# 


THE BRANCH TO 'REGREAD' IS THE NORMAL, MOST USED SUBSTATE OF THE 






14 


n 


READ STATE. HOWEVER, IF THE INTERRUPT LEVEL CODE DETECTS A DEOF 






15 


n 


BIT SET IN A BLOCK JUST READ IN IT WILL STOP THE TAPE TRANSPORT 






16 


§ 


AND SCHEDULE THE NEXT SUBSTATE IN THE READ STATE FOR EXECUTION. 


• 




17 


# 


THIS SUBSTATE IS ONE SHARED WITH THE VERIFY STATE. IT WAITS FOR 






18 


H 


ALL TAPE MOTlOf" TO STOP. ONCE TIM IS GONE IN THE TAPE STATUS, 


» 




19 


n 


IT SCHEDULES THE NEXT READ SUBSTATE FOR EXECUTION AND 'PUSHES' 






20 


n 


THE TIMING STATE INTO THE STACK WORD FOR EXECUTION, IT WILL WAIT 






21 


K 


FOR AN AMOUNT OF TIME NEEDED TO GUARANTEE THAT THE TDC HARDWARE 


. 




22 


n 


HAS IDLED OUT. 


0123550 




23 


VERS 




0124111 


24 




B VERSTP 


- 




27 


t 


THIS SUBSTATE HANDLES THE FAST REVERSE ORDER WHICH IS NEEDED TO PLACE 






28 


H 


THE TAPE AT THE NEXT SEQUENTIAL BLOCK IN THE BLEED OVER FILE. THE 






29 


n 


ORDER IS NOT SENT IF THE CLIENT USED THE SEIZE MACRO TO GAIN CONTROL 




• 


30 


n 


OF THE TCB. THIS MACRO IS NOT FILE ORIENTED AND THEREFORE DOES NOT 


■ 


. 


31 


* 


GET AFFECT BY LOGICAL FILE DIVISIONS. THIS SUBSTATE NEXT SCHEDULES 


. ■ ■ 




32 


§ 


THE VERSTPX SUBSTATE FOR EXECUTION. 


0123551 




33 


REW1 


0123551 01 000343 172231 --- 




34 




GN R9,9 dfGET ADDRESS FOR CURRENT TAPE. 






35 


1 


IF CLIENT IS OF THE SIEZE TYPE, JUST EXIT FROM THE READ STATE VIA POPY. 


0123552 01 000344 051365 




36 




TBS N(SEEZ) (RAO), S (SEEZ) 


0123553 01 000345 054757 


0123532 


37 




BC POPY 


0123554 01 000346 003641 004415 




38 




LI R10,TFR WMUST REWIND TAPE TO READ NEXT TRACK 


0123556 01 000350 023440 




39 




SMIO 




0123557 01 000351 003045 




40 




LN R2,5 


. 


0123560 01 000352 136040 123560 


0123560 


41 




BX R2,* 


■ , . 


0123562 01 000354 023500 




42 




TIO 


0123563 01 000355 055032 


0123615 


43 




BNC ORDFAL 


» ORDER FAILED PO ERROR. ■'! 


0123564 




44 


BACK 




0123564 01 000356 137040 043332 


CTSD 


45 




A1S TCBADR+N(STATEFLG) 


0123566 01 000360 053141 


0123727 


46 


B BACKBASE 
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JM. 



TAPE HANDLER 
READ STATE 



0123567 






0123567 



0123567 

0123567' 

0123567 01 000361 137020 127124 012712* 

0123571 01 000363 155136 0123727 

0123572 01 000364 051200 

0123573 01 000365 054035 0123630 

0123574 01 000366 003641 002015 
0123576 

0123576 01 000370 073023 

0123577 01 000371 154010 0123607 



0123600 01 000372 003601 001412 TTYTBL 
0123602 

0123602 01 000374 073046 

0123603 

0123603 01 000375 137020 127155 0127155 

0123605 01 000377 162220 

0123606 01 000400 053121 0123727 

0123607 

0123607 01 000401 103022 

0123610 01 000402 053010 0123620 

0123611 

0123611 01 000403 110417 

0123612 01 000404 056000 



-001 



0:43:06 



2/06/81 **** 



CTAPH 



W77D 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
-001- 32 
33 

35 

-001- 36 
37 

-001- 38 
39 

-001- 40 
41 
42 



If THE REGREAD STATE CHECKS THE TIME CONSTANT STORED IN THE TCB AGAINST 

# THE SYSTEM CLOCK TO SEE IF THE INTERRUPT HAS GIVEN UP CONTROL OR 

# TERMINATED EXECUTION. THE IOCMP BIT IN THE TCB IS INVESTIGATED TO 

II ASSURE THAT THE READ KENT WITHOUT ERROR. UPON A SUCCESS, THE STATEWRD 
U STACK IS 'POPPED' WHICH SHOULD LEAVE IT EMPTY WHICH WILL INVOKE 
» THE MONITOR STATE FOR SERVICING A NEW CLIENT REQUEST. 

K THE ABSENCE OF IOCMP WILL BE INVESTIGATED WITH A TAPE STATUS ORDER. 
If IF A MAINTENANCE START CODE IS RECIEVED, IT HINTS THAT A BLOCK WAS 
K PARTIALLY READ AND FOR SOME REASON(SUCH AS A BIT DROP OUT) CAUSED 
If LESS THAN THE EXPECTED NUMBER OF TDC BUFFERS TO BE READ BY THE 
U INTERRUPT. A CRC ERROR WOULD RESULT IN THIS CASE SINCE THE HARDWARE 
If WILL COMPUTE THE CRC ON THE PARTIALLY READ DATA WHICH OBVIOUSLY CAN 

# NOT PASS. UNDER THIS CASE THE ERROR RECOVERY STATE IS INITIATED AND 
H CONTROL PASSED TO IT VIA THE CRCEREC SUBROUTINE. AN ERROR PRINTOUT 
K ALSO IS GENERATED. 

# IF NO CRC ERROR IS GENERATED, THE TAPE HANDLER AT THIS POINT WILL 

# REMOVE THE TDC IN USE FROM SERVICE SINCE THIS SITUATION IS NOT EVER 

# EXPECTED. THE CLIENT IS ABORT SINCE THE READ STATE GOES DIRECTLY TO 
If THE CLOSE STATE. 

REGREAD 

H STATE WHICH WILL MONITOR THE READ INTERRUPT. 



CALL 

BSA 

BNC 



TIMOUTCK 
TIMOUTCK 
BACKBASE 



* CHECK IF INTERRUPT HAS ALLOWED BASE TIMEOUT 



If A TIMEOUT HAS OCCURED. CHECK IF THE INTERRUPT HAS SUCCESSFULLY COMPLETED. 



43 NOCRC 

45 

46 

47 RMVANDPO 

48 

49 



TBS 

BC 

LI 

CALL 

BSAI 

BC 

SPELL 

LI 

CALL 

BSAI 

CALL 

BSA 

ZBS 

B 



N(IOCMP) (RAO), S (IOCMP) K CHECK THE 10 COMPLETE FLAG. 

OKCOMP 

R10,TSTAT 

ORDEXCNT 0CHECK CRC HARDWARE RESPONSE. 

ordexCnt It SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 

NOCRC 



R8,(B,A,S,E,T,0) 

R8,BXASET0 

PTREC 

PXTREC 

CRCEREC 

CRCEREC 

N(SRFAL)(RAO),S(SRFAL) 

BACKBASE 



ft SUBROUTINE PTREC IS IN PROGRAM CTAPH 
#OUTPUT MESSAGE AND SET VP RECOVERY. 



LN 
B 



RLN 
BPAX 



R1,BASET0 
RMVCLOSE 

R0,1 
RO 



tf A BASE LEVEL TIMEOUT OCCURRED. 
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B07 



TAPE HANDLER 
READ STATE 

0123613 01 000405 106000 

0123614 01 000406 006000 

0123615 

0123615 01 000407 103025 

0123616 01 000410 053002 0123620 

0123617 01 000411 103023 

0123620 



0123620 01 000412 103641 010007 

0123622 01 000414 006061 

0123623 

0123623 01 000415 073023 

0123624 01 000416 106023 

0123625 

0123625 01 000417 037020 126766 0126766 
0123627 01 000421 153562 0123411 

0123630 

0123630 01 000422 162200 

0123631 01 000423 053310 0124141 



0:43:06 



2/06/81 ***» 



CTAPH 



W77D 



-001- 



-001- 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 



NOP 

NOP 
ORDFAL 

LN R1, ORDER 

B RMVCLOSE 

LN R1,N0RESP 
RMVCLOSE 

A FATAL ERROR HAS OCCURED. A COMMAND WILL BE SENT TO THE SPI TO REQUEST 
" THE STATUS OF THE ADDRESSED UNIT FOR PRINTOUT ON THE REMOVE MESSAGE. 



LI 

LR 

CALL 

BSAI 

LR 

CALL 

BSA 

B 



R10,SST 

R3,R1 

ORDEXCNT 

ordexCnt 

R1,R3 

REMOVTU 

REMOVTU 

CLOSESTATE 



# STATUS REQUEST TO SPI. 



It SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 

# REMOVE UNIT AND PRINTOUT. 

# ABANDON OPERATIONS. 



1? OKCOMP 

20 U A SUCCESSFUL READ HAS TAKEN PLACE. GO TO NEXT STATE. 

21 ZBS N(IOCMP>(RAO),S<IOCMP) 

22 B POP 
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TAPE HANDLER PROGRAM 








0:43:06 2/06/81 **** 


SIEZURE 


STATE 








CTAPH W770 


0123632 






01 


SIEZURE 




i 




02 


* THE SIEZURE STATE IS RESPONSIBLE FOR LOCATING THE REQUESTED FILE, 








03 


tt 


LOADING UP THE RESIDENT DIRECTORY IF REQUIRED AND POSITIONING THE 








04 


tt 


TAPE AT THE START OF THE CLIENT'S FILE. THE CLIENT HAS THE OPTION TO 






05 


« 


BE POSITIONED AT ANY LOGICAL BLOCK WITHIN THE FILE. 


0123632 






06 












07 


u 


THE SEIZURE STATE IS DIFFERENT FROM THE OTHER STATES IN THE MANNER 








08 


tt 


IN WHICH IT IS SET UP. IT DOES NOT HAVE AN INITIAL ENTRY POINT SCHEDULED 








09 


tf 


OUT OF THE MONITOR STATE. THE SEIZURE STATE AND ITS STARTING SUBSTATES 








10 


tt 


ARE SET UP IN THE STACK WORDS BY THE OPEN SUBROUTINE. THIS SUBROUTINE 








11 


It 


GAINS CONTROL FROM ONE OF 3 MACRO CALLS USED BY CLIENTS. 


0123632 






12 












13 


tt 


1. OPEN 








14 


It 


2. OPENE 








15 


It 


3. SEIZE 


0123632 






16 












17 


It 


THE OPEN MACRO RESULTS IN THE USE OF THE TAPE UNIT WHICH IS NUMERICALLY 








18 


It 


THE SAME AS THE ON-LINE PROCESSOR (OR IF THE TAPEOPTS WORD IS NON-ZERO 








19 


It 


TAPE WILL ALWAYS BE USED). THE OPENE WILL POSITION THE CLIENT TO THE 








20 


It 


REQUESTED FILE USING THE TAPE UNIT (EVEN/ODD) SPECIFIED BY THE CLIENT. 








21 


It 


IF THE TAPE CHOSEN IN THE OPEN MACRO IS OUT OF SERVICE A SWITCH WILL 








22 


It 


BE MADE AUTOMATICALLY TO THE OTHER UNIT. IN THE OPENE EXAMPLE, AN OUT OF 








23 


It 


SERVICE UNIT WILL FORCE THE ABORT OF THE CLIENT (THIS IS DONE DIRECTLY 








24 


tt 


OUT OF THE OPEN SUBROUTINE). 


0123632 






25 












26 


It 


SEIZE MACRO ALLOWS ACCESS TO ALL PORTIONS OF THE TAPE AND IS NOT AFFECTED 








27 


it BT LOGICAL FILE CHARACTERISTICS (DEOF-EOF). THE CLIENT USING SEIZE MAY 








28 


tt 


BE POSITIONED TO ANY BLOCK ON ANY TAPE UNIT. 


0123632 01 


000424 156001 




32 




BPAX R1 


0123633 01 


000425 153010 


-- 0123643 


33 




B UNITCHK 


0123634 01 




-- 0123663 


34 




8 SYSDIR 


0123635 01 


000427 153053 


-- 0123710 


35 




B ATSYSDIR 


0123636 01 


000430 153073 


-- 0123731 


36 




B PHYLOC 


0123637 01 


000431 153004 


-- 0123643 


37 




B UNITCHK 


0123640 






38 


USERLOOK 








39 


tt 


SET UP POSSITION REQUEST FOR LOOK UP OF CLIENTS BLOCK 


0123640 






40 




CALL POPSTATE 


0123640 01 


000432 173045 




001- 41 




BSAI popstAte It SUBROUTINE POPSTATE IS IN PROGRAM CTAPH 


0123641 






42 


POSI 


0123641 01 


000433 103003 




43 




LN RO,POSST 


0123642 01 


000434 053063 


-- 0123725 


44 




B ZRPUSH 
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TAPE HANDLER PROGRAM 
SIEZURE STATE 



0123643 



0:43:06 



2/06/81 **** 



CTAPH 



W77D 



01 it THE TAPE OPEN MACRO HAS BEEN ACCEPTEO. THE DIRECTORY ON TAPE MAY HAVE 

02 * TO BE SEARCHED TO OBTAIN THE FILE INFORMATION. A TAPE HILL BE SELECTED 

03 * TO RECOVER THE DIRECTORY IF THE RESIDENT DIRECTORY DOES NOT YEILD A 

04 # MATCH ON THE FILE NAME. 
OS 

06 n THE UNIT SELECTED WILL BE BASED UPON WHICH CU IS ACTIVE UNLESS THE 

07 U TAPE OPTION WORD INDICATES TAPE UNIT ZERO IS TO BE USED ALWAYS. 

08 H IF THE PREFERED UNIT IS NOT INSERVICE, ITS MATE WILL SERVE AS THE 

09 It BACKUP. 



0123643 

0123643 01 000435 130422 020003 TDATA 

0123645 01 000437 024020 

0123646 01 000440 054004 0123652 

0123647 01 000441 057437 

0123650 01 000442 055002 0123652 

0123651 01 000443 061010 

0123652 

0123652 ' 

0123652 01 000444 173024 

0123653 01 000445 154711 0123564 

0123654 01 000446 051010 

0123655 01 000447 061010 

0123656 01 000450 055002 0123660 

0123657 01 000451 062010 

0123660 

0123660 

0123660 01 000452 173024 

0123661 01 000453 154703 0123564 

0123662 01 000454 053527 0123411 



13 
14 
15 
16 
17 
15 
19 
20 
21 
22 
23 
24 

-001- 25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

-001- 35 
36 
37 
38 



UNITCHK 

* CHECK IF TAPE OPTIONS WORD IS ACTIVE FOR TAPE ZERO SELECT. 

LL R1,TAPE0PTS 

TBN R1,0 

BC ZERON 
» TEST WHICH CU IS ACTIVE TO DETERMINE THE PREFERED UNIT. 

TCC1 

BNC ZERON 

SBS N(TAPNO)(RAO>,0 # SET TU1 IN TCB 



ZERON 
n CHECK 



IF THE SELECTED TDC IS INSERVICE 

#GET STATUS OF TAPE IN TCB 

» SUBROUTINE STATSET IS IN PROGRAM CTAPH 



CALL 
BSAI 
BC 



STATSET 

SXTATSET 

BACK 

# SWITCH TO MATE UNIT SINCE FIRST SELECTION WAS OUT-OF-SERVICE. 

TBS N(TAPNO)(RAO),0 

SBS N<TAPNO)(RAO),0 

BNC ODUNIT 

ZBS N(TAPN0)(RA0),0 
ODUNIT 
n CHECK IF THIS UNIT IS INSERVICE 

CALL STATSET 

BSAI SXTATSET 

BC BACK 

* NO DIRECTORY CAN BE USED. ABORT CLIENT 

B CLOSESTATE 



0CHECK MATE UNITS STATUS 

U SUBROUTINE STATSET IS IN PROGRAM CTAPH 



0123663 



42 SYSDIR 

43 U THIS SUB-STATE WILL SEARCH THE RESIDENT DIRECTORY FOR A MATCH ON 

44 # THE REQUESTED FILE. FAILURE OF A MATCH SHALL RESULT IN THE POSITION 

45 STATE BEING INVOKED TO GET TO THE TAPE DIRECTORY BLOCK. IF A MATCH 

46 # IS FOUND, A CWECK IS MADE TO SEE IF AN EXPLICIT OPEN WAS USED. IN THIS 

47 * CASE, THE TAPE UNIT REQUESTED IS SET UP. THE UNIT SELECTED WILL THEN 

48 # HAVE ITS STATUS CHECKED BEFORE CONTINUING. 
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TAPE HANDLER PROGRAM 
SIEZURE STATE 



0123663 01 000455 137040 043332 CTSD 

0123665 01 000457 040341 

000460 040362 ~ 



0123666 01 
0123667 

0123667 01 



000461 037020 126627 0126627 



000463 155750 0123641 

000464 037040 043332 CTSD 



0123671 01 

0123672 01 
0123674 

0123674 01 000466 103027 

0123675 01 000467 002020 000017 
0123677 01 000471 037040 043332 CTSD 



0123701 01 000473 051346 

0123702 01 000474 055741 0123643 

0123703 01 000475 040026 

0123704 01 000476 010437 

0123705 01 000477 002030 000001 
0123707 01 000501 053751 0123660 



01 
02 
03 
04 
05 
06 
-001- 07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
1? 
20 
21 
22 
23 



0:43:06 2/06/81 **** 
CTAPH W77D 



n GET FILE NAME ADDRESS AND CAU THE RESIDENT DIRECTORY SEARCH 
H AND SETUP ROUTINE. 

A1S TCBADR+NCSTATEFLG) 

L R14,NCH0FILNAM)CRA0) 

I R15,NCFILNAM)CRA0) 

CALL DIRSRCHRES 

BSA DIRSRCHRES 
tt SET UP SEARCH FOR TAPE DIRECTORY IF NO MATCH IS FOUND IN RESIDENT 
# DIRECTORY. 

BNC POSITIONLOD 

A1S TCBADR+NCSTATEFLG) 
EPI.CHK 

LN R1,IDLE 

STM R1,NCRECl)CRA0),MCRE«) tt REMOVE OPEN. IDLE TCB. 

A1S TCBADR+NCSTATEFLG) __ 

It CHECK IF OPENE WAS USED. IF SO SET UP TAPE REQUESTED AND CHECK 
U STATUS. 

TBS nCEXPLIC)CRAO),SCEXPLIC) 

BNC UNITCHK 

L R^NCEVODXRAO) 

RRN R1 S CEVOD) 

STM R1>CTAPN0>CRA0),MSKC1) tt FORCE EVEN OR ODO UNIT ACTIVE 

B ODUNIT 



0123710 

0123710 01 000502 140341 



0123711 01 000503 040362 

0123712 

0123712 01 000504 137040 043332 CTSD 

0123714 

0123714 01 000506 103641 003415 

0123716 

0123716 01 000510 073043 „.„,.. 

0123717 01 000511 155672 0123611 

0123720 

0123720 

0123720 01 000512 073022 

0123721 01 000513 000005 

0123722 

0123722 01 000514 144014 



-001- 



27 U THIS SUBSTATE WILL CAUSE THE READING IN OF THE TAPE DIRECTORY. 

28 # UPON COMPLETION OF THE OPERATION, CONTROL WILL BE PASSED TO 
- It THE PHYLOC SUBSTATE TO SEARCH THE I/O BUFFER FOR A DIRECTORY MATCH. 

It THE TIME STATE IS INVOKED TO ALLOW THE READ-A-BLK TO TERMINATE PRIOR 

It TO PASSING CONTROL TO THE NEXT SEIZURE SUBSTATE. 

ATSYSDIR 

R14,N<H0FILNAM)(RA0) # OBTAIN THE ADDRESS FOR CLIENTS FILE 
REQUEST DATA 
L R15,NCFILNAM)CRA0) 



29 
30 

31 
32 
33 



35 

36 MATERED 
.37 

39 RD1AGN 

40 

41 

42 

43 
44 



A1S TCBADR+NCSTATEFLG) 



-001- 45 
-002- 46 
-001- 47 

48 SETIME 

49 



LI R10,TRB 

CALL ORDEXC 

BSAI OXRDEXC 

BNC RMVANDPO 

BGNTIM MSEC=IBG_1BUF 

CALL TIMOUT 

BSAI TXIMOUT 

DATA 5 

ST RO,N(TIMEK)(RAO) 



H PREPARE TO READ A BLOCK. 

n SEND COMMAND 

K SUBROUTINE ORDEXC IS IN PROGRAM CTAPH 

tt SET UP TIME CONTROL 

ft SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
It TIMOUT+1 
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TAPE HANDLER PROGRAM 

SIEZURE STATE 

0123723 

0123723 01 000515 103401 000006 

0123725 

0123725 01 000517 103020 

0123726 

0123726 

0123726 01 000520 173044 

0123727 

0123727 01 000521 137000 001062 CBLM 



-001- 



01 SETIM 




02 LI 


R0,TIMST 


03 ZRPUSH 




04 ZR 


R1 


05 PUSHAND 




06 CALL 


PUSHSTAT 


07 BSAI 


pushsTat 


08 BACKBASE 




09 BL 


CTAPHRTN 



0:43:06 2/06/81 **** 
CTAPH W77D 



* SET UP FOR REQUESTED STATE. 

* SUBROUTINE PUSHSTAT IS IN PROGRAM CTAPH 



0123731 



0123731 01 000523 140341 

0123732 01 000524 040362 

0123733 

0123733 01 000525 037020 126634 0126634 

0123735 01 000527 155454 0123411 

0123736 

0123736 01 000530 073024 

0123737 01 000531 153735 0123674 



13 PHYLOC 

14 H THIS SUBSTATE WILL INTERROGATE THE I/O BUFFER, WHICH SHOULD CONTAIN 
THE TAPE DIRECTORY IN TOTAL, TO LOCATE THE CLIENT FILE INFORMATION. 

L 



15 rr inc. mrc vjincbivni *.r* ivinu/ i v u 

16 L R14,N(H0FILNAMMRA0) 

17 L R15,N(FILNAM)(RA0) 

18 CALL DIRSRCHIO 
-001- 19 B5A DIRSRCHIO 

20 BNC CLOSESTATE 

21 CALL STATSET 
-001- 22 BSAI SXTATSET 

23 U CHECK STATUS FOR REQUESTED FILES TAPE UNIT. 

24 B EPLCHK 



# CHECK DIRECTORY FOR REQUESTED FILE 



ENTRY NOT IN THIS BLOCK 

SET UP RA1 AGAIN 

SUDKOUTINE STATSET IS IN PROGRAM CTAPH 
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TAPE HANDLER PROGRAM 
VERIFY STATE 
0123740 






01237*0 



0123740 



01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



0:43:06 2/06/81 **** 
CTAPH M770 



VERIFY 

n IN CERTAIN INSTANCES THE POSITION OF THE TAPE IS NOT KNOWN A 
VERIFICATION OF THE BLOCK AT WHICH THE HEADS ARE AT IS DONE BY 
THE VERl" STATE THIS STATE MAY BE INVOKED AFTER A FAST SEARCH 
OR TAPE RESTORAL OPERATION FOR INSTANCE. IT ALSO SERVES A ROLE IN 
ERROR RECOVERY BY PROVIDING RE-READ OPERATIONS AFTER THE INITIAL 
CRC ERROR IS DETECTED. 



ITS PRIMARY OBJECTIVE IS TO LOCATE THE HEAD POSITION. THIS WILL 

N Jt BE INTERFERED wiTH BY CRC ERRORS. IF CRC ERRORS ARE ENCOUNTERED 

THIS STATE WILL SIMPLY SWITCH TRACKS TO CONTINUE ITS OBJECTIVE. 

IF ALL TRACKS EXHIBIT ERROR OR IF THE DESTINATION ITSELF IS BAD, 

Jn ATTEMPT TO SWITCH TAPE UNITS IS MADE, IF POSSIBLE. AN UNRECOVERABLE 

SITUATION RESULTS IN THE ABORTING OF THE CLIENT. 

SINCE VERIFICATION CAN RESULT IN SWITCHING TRACKS FROM THE CLIENTS 
REQUESTED TRACK, A VERIFY TRACK FIELD IS KEPT IN THE ^.NORMALLY 
THE CLIENT TRACK AND THE VERIFY TRACK ARE IDENTICAL. IF NOT, THIS 
INDICATES SOME VERIFY ERROR RECOVERY TOOK PLACE WHICH WILL RESULT 
IN MORE SOFTWARE CHECKS. 



24 
25 
26 
27 
28 



* FIRST CHECK IF POSITION IS ALREADY KNOWN. ANOTHER STATE MAY HAVE 
tt REQUESTED VERIFICATION WITH THE POSITION ALREADY KNOWN. ALSO THE 

H NORMAL EXECUTION OF VERIFY RESULTS IN THE INTERRUPT LEVEL READ CODE 

* SETTING THE POSOK BIT IN THE STATUS WORD. NORMAL EXIT WILL BE MADE 

* HERE UNDER ANY CONDITION. 



0123740 01 000532 140205 

0123741 01 000533 040226 

0123742 01 000534 024075 

0123743 01 000535 054104 0124047 

0123744 01 000536 006041 



0123745 01 000537 024276 „.„, x - 

0123746 01 000540 055017 0123765 

0123747 01 000541 0C3000 

0123750 01 000542 044015 

0123751 

0123751 01 000543 103421 020000 
0123753 01 000545 003622 014000 
0123755 01 000547 054002 0123757 
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L 
L 
TBN 



R8,N(VERTRK)(RA0> 

R9,N(TRACK)(RA0) 

R3,S(P0S0K) 



ATGET VERIFY TRACK AND READ TRACK 



n CHECK IF TAPE IS VERIFIED 



32 
33 

35 » IF POSITION Is"6k7 FURTHEK CHECKS 'aRe'mADE AT FINAL VERIFY. 

36 

37 

38 

39 



BC 
LR 



FINALVER 

BEFORE%UBSTATe'dISPATCHING IS DONE, CHECKS ARE MADE TO ASSURE THAT 
w THE BEGINNING OF TAPE CONDITION IS H/.NDLED PROPERLY. DEPENDING ON 

40 If WHICH TRACK THE CLIENT FILE IS LOCATED THE PRESENT TAPE POSITION 

41 If MAY BE OR 1 IF THE BOT STATUS BIT IS SET. 



42 
43 
44 
45 



TBN 
BNC 
ZR 
ST 

46 B0TPAT1 

47 LI 

48 NI 

49 BC 



R11,S(B0T) 

BPX 

RO 

RO,N(LSTCOM)(RAO) 

R1,ES (POSOK) 

R9,M(TRACK) 

STRPOS 



If IF TAPE AT BOT MARK 7.ER0 IN STATUS. 
^PREVENT POSITION LOOP DUE TO BACKSPACE CMD. 
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TAPE HANDLER PROGRAM 
VERIFY STATE 

0123756 01 000550 004421 

0123757 . 

0123757 01 000551 102*20 023777 

0123761 01 000553 004037 

0123762 01 000554 002037 003777 
0123764 01 000556 053175 0124161 



0123765 



0123765 

0123765 01 000557 156002 

0123766 01 000560 153112 0124100 

0123767 01 000561 153122 0124111 

0123770 01 000562 153134 0124124 

0123771 01 000563 153120 0124111 

0123772 01 000564 153136 0124130 

0123773 01 000565 153105 0124100 

0123774 01 000566 153115 0124111 

0123775 01 000567 153127 0124124 

0123776 01 000570 153113 0124111 

0123777 01 000571 103020 

0124000 01 000572 002033 000017 

0124002 01 000574 002031 000017 



0124004 



0124004 01 000576 103641 040007 



01 

02 STRPOS 

03 

04 

05 

06 



08 
09 

10 

11 

12 
M 
14 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



AN 

STM 

SN 

STM 

B 



R1,1 



0:43:06 

CTAPH 
*NOT TRACK WITH BLOCK ZERO. 



2/06/81 **** 
W77D 



R1,0(RA1),M(PTP)+H(P0S0K) 
R1 1 

R1^N<LSTG00DXRA0),M<PTP) 
ORDSND 



VERIFICATION CONSISTS OF POSITIONING THE TAPE READ HEADS IN AN 
INTER-BLOCK-GAP AND THEN READING THE NEXT BLOCK ON THE VERIFY TRACK, 
THE NORMAL INTERRUPT LEVEL CODE WILL HANDLE THE UPDATING OF THE 
TAPE STATUS WORD. IF THE BLOCK IS READ CORRECTLY, THE POSITION OK 
BIT WILL BE SET AND THE BLOCK NUMBER STORED IN THE STATUS WORD. 



SEQUENCING DOWN THE DISPATCH TRANSFER VECTOR TABLE WILL ONLY 

15 # CONTINUE IF THE READ FAILS. THAT IS WHEN THE READ A BLOCK 

16 K IS EXECUTED TO RECOVER THE BLOCK NUMBER THE SETTING OF THE 

17 H POSITION OK BIT WILL TERMINATE THE VERIFY STATE AT IT'S ENTRY CHECK 

18 * OF THAT BIT. IF NOT THE STOPPING OF THE UNIT WILL INITIATE ONE MORE 

19 » ATTEMPT AT THE BACKSPACE, READ-A-BLOCK SEQUENCE. FAILURE HERE 

20 It WILL INITIATE THE VERIFY STATE'S ERROR RECOVERY MECHANISM. 



21 BPX 
22 



BPAX R2 
THIS SUBSTATE BACKS UP THE TAPE INTO AN IBG. 

B BKUP 
THIS STATE WAITS FOR THE PREVIOUS MOTION ORDER TO TERMINATE. 

B VERSTP 
THIS STATE DOES THE READ-A-BLOCK COMMAND 

B RDVERY 

B VERSTP 
GETTING HERE IS AN ERROR CONDITION. ONE MORE VERIFY SEQUENCE 
WILL BE EXECUTED. 



B INITAGN 

B BKUP 

B VERSTP 

B RDVERY 

B VERSTP 

ZR H , # RESET THE STATE FLAG AND BUFFER COUNT. 

STM R1,N(STATEFLG)(RA0),MSK<4) 

STM R1,N(BUFCT)(RA0),M(BUFCT) 
THE SEQUENCING THROUGH THE ABOVE DISPATCH TABLE INDICATES THE 
INABILITY TO READ A BLOCK ON THE CURRENT VERIFY TRACK. THE POSSIBILITY 
THAT THIS STATE HAS BEEN INVOKED BY THE ERROR RECOVERY EXISTS. IF 
43 * SO, CONTROL SHOULD PASS BACK AFTER SOME BASIC INITIALIZATION IS DONE. 

i/;A TRUE VERIFICATION ERROR EXISTS, THE VERIFY STATE SHALL INITIATE 
THE SEQUENCING OF THE VERIFY TRACK TO THE NEXT ADJACENT TRACK AND 
RESTART THE VERIFY PROCEEDURE. THIS CAN CONTINUE UNTIL THE VERIFY 
TRACK AGAIN MATCHES THE CLIENT READ-WRITE TRACK FIELD. 
LI R10,INIT 



45 
46 
47 
48 
49 
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TAPE HANDLER PROGRAM 
VERIFY STATE 

0124006 

0124006 01 000600 073023 

0124007 01 000601 161220 

0124010 01 000602 051120 

0124011 01 000603 054065 0124076 

0124012 01 000604 003600 004000 
0124014 01 000606 017211 014000 
0124016 01 000610 055023 0124041 



0124017 01 000611 061327 

0124020 01 000612 051325 

0124021 01 000613 054023 0124044 

0124022 01 000614 051346 

0124023 01 000615 054021 0124044 

0124024 01 000616 051345 

0124025 01 000617 054017 0124044 

0124026 01 000620 002205 014000 
0124030 

0124030 01 000622 073026 

0124031 01 000623 161325 

0124032 

0124032 01 000624 103020 

0124033 01 000625 002033 000017 
0124035 01 000627 002031 000017 

0124037 01 000631 062220 

0124040 01 000632 053125 0124165 



01 
-001- 02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 

16 
17 
10 
19 
20 
21 
22 
-001- 23 
24 
25 
26 
27 
28 
29 
30 



125 

0:43:06 2/06/81 **** 

CTAPH W77D 

CALL ORDEXCNT fflNIT TDC 

3SAI ordexCnt # SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 

SBS N(SRFALXRA0),S(SRFAL> 

TBS N(MAINT)(RAO),S(MAINT) (KSET CRC FAIL BIT AND TEST IF MAINT IP 

BC POPTIME 

AI R8,ES(VERTRK> ^SEQUENCE TRACK READS 

CRM R8,R9,M(VERTRK) KMAVE ALL TRACKS BEEN USED 

BNC SEQTRK #N0 

IF ALL FOUR TRACKS FAIL, SCHEDULE A REPACK OPERATION SINCE THIS 
IS SYMTEMATIC OF THE NEED FOR ONE. THE NEXT PHASE IN THE RECOVERY 
PROCESS IS TO CHECK IF THE CLIENT CAN AFFORD A SWITCH TO THE 



# MATE UNIT. SOME CAN NOT FOR REASONS FLAGGED IN THE TCB. 

SBS N(REPK)(RAO),S(REPK> #FLAG TAPES TO BE REPACKED 

TBS N(OTHERU)(RA0),S(OTHERU) tfHAVE BOTH UNITS BEEN USED TO LOCATE 

FILE 

BC FILELOST #YES 

TBS N(EXPLIC)(RAO),S(EXPLIC) *CAN CLIENT LIVE WITH OTHER UNIT 

BC FILELOST #N0 

TBS N(ERNA)(RAO),S(ERNA) #IS ANY ERROR RECOVERY AL .OWED NOW 

BC FILELOST #N0 

STM R8,N(VERTRK)(RA0>,H(VERTRK> *RE-ESTABLISH VERIFY TRACK 

CALL COMTU 

BSAI CXOMTU » SUBROUTINE COMTU IS IN PROGRAM CTAPH 

SBS N(OTHERU)(RAO),S(OTHERU) #FLAG MATE BEING USED 

ZR R1 

STM R1,N($TATEFLG)(RA0),MSK(4> 

STM R1,N(BUFCT)(RA0),M(BUFCT) 0RESET TO START OF VERIFY 

ZBS N(SRFAL)(RAO),S(SRFAL) * CLEAR ERROR CONDITION 

B BCKTIM 



CLEAN 



0124041 34 SEQTRK 

0124041 01 000633 102205 014000 35 STM 

0124043 01 000635 053767 0124032 36 B 



R8,N(VERTRK) (RAO),M(VERTRK> 
CLEAN 



0124044 40 FILELOST 

0124044 01 000636 103020 42 

0124045 01 000637 037000 125110 0125110 43 



LN 
BL 



R1,FATLREAD 
SETSTAT 
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TAPE HANDLER PROGRAM 

VERIFY STATE 

012*047 

012*047 01 000641 162200 

0124050 01 000642 062325 

0124051 01 000643 017211 014000 

0124053 01 000645 054014 0124067 

0124054 01 000646 051120 — 

0124055 01 000647 054010 0124065 

0124056 01 000650 040026 

0124057 01 000651 040045 

0124060 01 000652 001422 

0124061 01 000653 004421 

0124062 01 00065* 017023 003777 

0124064 01 000656 054760 0124044 

0124065 

0124065 01 000657 102225 014000 
0124067 

0124067 01 000661 103462 003777 

0124071 01 000663 054047 0124140 

0124072 01 00066* 00*077 

0124073 01 000665 002077 003777 
0124075 01 000667 053043 0124140 



01 


FINALVER 


02 


ZBS 


03 


ZBS 


().: 


CRM 


05 


BC 


06 


TBS 


08 


BC 


09 


L 


10 


L 


11 


AR 


12 


AN 


13 


CRN 


15 


BC 


16 


SKIPCHK 


17 


STM 


18 


PUTLST 


19 


NI 


20 


BC 


21 


SN 


22 


STM 


23 


B 



0:43:06 2/06/81 **** 
CTAPH W77D 

Na0CMPXPA0>,S(I0CMP> * CLEAR 10 COMPLETE FLAG. 

N(OTHERU)(RAO),S(OTHERU) PRESET ON SUCCESS 

R8,R9,M(TRACK) 

PUTLST 

N<MAINTKRAO),S<MAINT> H IF MAINT ACTIVE IGNORE POSITION 

VERIFICATION 
SKIPCHK 

R1,N(PHYBLK)(RA0) 
R2,N(L0GBLK)(RA0> 
R1,R2 
R1,1 
R1,R3,M(PTP) #IF BAD BLK AND DEST. SAME READ CAN'T BE 

DONE 
FILELOST 

a?,N(VERTRK)(RAO>,M(VERTRK) #SET TRACK BACK TO ORIG 

R3,M(PTP) 

POPZSTP 

R3r1 d # ESTABLISH LAST GOOD BLOCK READ IN. 

R3,N(LSTG00D)<RA0),M(LSTG00D) 

POPZSTP 



0124076 
0124076 

0124076 01 000670 173045 

0124077 01 000671 153066 0124165 



-001- 



27 POPTIME 

28 CALL 

29 BSAI 

30 B 



POPSTATE 
popstAt* 
BCKTIM 



U SUBROUTINE POPSTATE IS IN PROGRAM CTAPH 



0124100 34 BKUP 

0124100 01 000672 103641 006415 36 

0124102 

0124102 01 000674 140225 

0124103 01 000675 010637 

0124104 01 000676 016251 030000 
0124106 

0124106 01 000700 073C23 -001- 

0124107 01 000701 155502 0123611 

0124110 01 000702 053454 0123564 



LI 



R10,TBS 



37 


ORDBCKAB 




38 


L 


R9,N<VERTRKXRA0) 


JV 


RLN 


R9,1 


40 


IRM 


R10,R9,M(TRKS> 


41 


CALL 


ORDEXCNT 


42 


BSAI 


ordexCnt 


43 


BNC 


RMVANDPO 


4* 


B 


BACK 



» PREPARE TAPE BACKSPACE COMMAND. 

#GET VERIFY TRACK BITS INTO COMMAND 

* SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 
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DOS 



TAPE HANDLER PROGRAM 
VERIFT STATE 



012*111 

0124111 01 

0124112 01 

0124113 01 

0124114 01 

0124116 01 

0124117 01 
0124120 
0124120 

0124120 01 

0124121 01 

0124122 01 

0124123 01 



000703 124272 

000704.054615 0123727 

000705 040226 

000706 037040 043332 CTSO 

000710 024276 

000711 054632 0123751 

000712 073022 

000713 000003 

000714 144014 

000715 053577 0123722 



-00V 
-002 
-001 



01 VERSTP 

02 

03 

04 

05 

06 

07 

OS 

09 

10 

11 

12 

13 



TBN 

BC 

L 

A1S 

TBN 

BC 

BGNTIM 

CALL 

BSAI 

DATA 

ST 

B 



0124124 

0124124 01 000716 161240 

0124125 01 000717 003641 003415 
0124127 01 000721 053753 0124102 



0124130 

0124130 01 000722 103641 040007 

012*132 

0124132 01 000724 073023 -001- 

0124133 01 000725 103020 

0124134 01 000726 002031 000017 

0124136 01 000730 037000 125154 0125154 



0124140 01 000732 162240 

0124141 

012*1*1 

0124141 01 000733 173045 -001- 

0124142 01 000734 153565 0123727 



17 RDVERY 

18 SBS 



20 
21 



LI 
B 



25 INITAGN 

26 

27 

28 
29 
30 

32 



LI 

CALL 

BSAI 

ZR 

STM 

BL 



35 POPZSTP 

36 POP 

37 CALL 

38 BSAI 

39 B 



0:43:06 2/06/81 **** 
CTAPH W77D 



R11,S(TIM> 

BACKBASE 

R9,N(TRACK)(RA0) 

TCBADR+W(STATEFLG) 

R11,S(B0T) 

B0TPAT1 

MSEC=STPTIM 

TIMOUT 

TXIMOUT 

3 

R0,N(TIMEK)CRA0) 

SETIME 



n CHECK IF TAPE HAS STOPPED. 



MUST 
(KYES 



DO BOT POSITION SETUP 



* SUBROUTINE TIMOUT 
TIMOUT+1 



IS IN PROGRAM CSYSUB 



N(STPST)(RAO),S(STPST) # PREVENT DATA TRANSFER. 

R10,TRB 
ORDBCKAB 



# SEND INIT ORDER TO TDC 

# SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 



R10,INIT 
ORDEXCNT 
ordexCnt 

R1,N(BUFCT>(RA0>,MCBUFCT) /KCLEAR BUFFER COUNT INCASE OF PARTIAL 

BLK 
ADDTIM 



ZBS N(STPST)<RAO>,S<STPST> 



POPSTATE 
popstAte 

BACKBASE 



H SUBROUTINE POPSTATE IS IN PROGRAM CTAPH 
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EOS 


TAPE HANDLER PROGRAM 


0:43:06 2/06/81 **** 


TIMING SUBSTATE 


CTAPH W77D 


0124143 


01 TIMING 




02 n ENTRT TO THE TIMING STATE OF THE PROCESSING OF A TAPE TASK. 








0124143 


06 CALL TIMOUTCK CHECK FOR TIMEOUT 


0124143 01 000735 137020 


127124 0127124 -001- 07 BSA TIMOUTCK 


0124145 01 000737 155562 


_,-__»_ H1 ")77?7 nU ntift n a f\sr+ A *» f U kin •• upaiii- 


------ vMiltf Uo BNC BACKBASE ft NO TIMEOUT 


0124146 

0124146 01 000740 073045 


09 CALL POPSTATE 


-001- 10 BSAI popstAte H SUBROUTINE POPSTATE IS IN PROGRAM CTAPH 


0124147 01 000741 137000 


123206 0123206 11 BL CTAPH 
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TAPE HANDLER PROGRAM 
POSITIONING SUBSTATE 
0124151 



F08 



0:43:06 2/06/81 **** 
CTAPH W77D 



02 * ENTRY POINT FOR THE SUBSTATE RESPONSIBLE FOR POSITIONING THE 

03 * TAPE AT THE FILE REQUESTED IN THE TCB. THE TU MUST BE TURNED ON 

04 » AND THE PRESENT POSITION VERIFIED. POSITION WILL RETURN TO CLIENT 

05 n FOR FUTURE STIMULUS. 



0124151 01 000743 124075 

0124152 01 000744 054016 



0124170 



0124153 01 000745 024272 

0124154' 01 000746 054005 0124161 

0124155 

0124155 01 000747 V. .120 

0124156 01 000750 054762 0124140 

0124157 01 000751 003007 

0124160 01 000752 053545 0123725 



0? 
10 
11 
12 
13 

15 
16 
17 
18 



20 

21 VERSET 

22 

24 
25 
26 



FIRST CHECK IF THE TU HAS BEEN PLACED IN A FAST SPEED. 
THIS WILL BE INDICATED BY THE ABSENCE OF THE POSOK BIT IN THE 
TU STATUS WORD FOR THIS TAPE UNIT. 

BC N CHKDIS° S0K) » THE TU'S POSITION IS KNOWN CHECK DISTANCE 

TO DESTINATION 
AT THIS POINT THE TU POSITION IS NOT KNOWN. THE REASON MAY BE 
THAT THE FAST SPEED SEARCH IS INPROGRESS AND REQUIRES TD BE STOPPED. 
IF IT IS STOPPED, A VERIFY OF THE POSITION MUST BE MADE. 

TBN R1USCTIM) * CHECK IF TAPE IS IN MOTION (FAST FWD OR 

REV) 
ORDSND 



BC 

TBS 

BC 
LN 
B 



N(SRFAL)(RAO),S<SSFAL) #CRCFAIL HERE MEANS MAINT IP GET OUT OF 

LOOP 
POPZSTP 
RO,VERST 
ZRPUSH 



0124161 

0124161 01 000753 103641 040007 
0124163 

0124163 01 000755 073023 

0124164 01 000756 155060 0124244 

0124165 

0:24165 

0124165 01 000757 173022 

0124166 01 000760 000027 MASACS 

0124167 01 000761 153533 0123722 



30 ORDSND 

32 LI R10,INIT 

33 CALL ORDEXCNT 
-001- 34 BSAI ordexCnt 

35 BNC XRMVPOX 

36 BCKTIM 

37 CALL TIMOUT 
-001- 38 BSAI TXIMOUT 

3? DATA REDKON+6 

40 B SETIMe 



tf PREPARE TO STOP UNIT FROM FAST SEARCH 
# SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 

U SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
» SETUP TIME STATE 



0124170 



45 # THE TAPE HAS BEEN PLACED AT AN IBG AND THE POSITION IS VERIFIED. 

46 » THE CALCULATION OF DISTANCES BETWEEN THE GOAL AND PTP HUST NOW BE DONE. 

47 » R3 HAS PRESENT TAPE STATUS. RA1 POINTS TO PTP STATUS 

48 * IF SIEZE STATE IS NEXT IN SCHEDULER STACK. SEARCH FOR DIRECTORY. 
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608 



TAPE HANDLER PROGRAM 
POSITIONING SUBSTATE 

0124170 01 000762 140012 

0124171 01 000763 017404 007405 

0124173 01 000765 055016 0124211 

0124174 01 000766 003421 014527 MASACS 
0124176 01 000770 002027 017777 
0124200 01 000772 003421 004000 MASACS 
0124202 01 000774 002026 014000 
0124204 01 000776 002025 014000 
0124206 01 001000 003421 000017 MASACS 

0124210 01 001002 053015 0124225 

0124211 

0124211 01 001003 140026 

0124212 01 001004 003422 003777 

0124214 01 001006 040045 

0124215 01 001007 003442 003777 
0124217 01 001011 001422 

0124220 01 001012 040107 

0124221 01 001013 003502 017777 

0124223 01 001015 005101 

0124224 01 001016 055023 0124247 

0124225 

0124225 01 001017 116403 003777 
0124227 01 001021 005001 

0124230 01 001022 055022 0124252 

0124231 01 001023 014000 

0124232 01 001024 054063 0124315 

0124233 

0124233 01 001025 037020 126615 0126615 

0124235 01 001027 122137 

0124236 01 001030 055024 0124262 

0124237 01 001031 004077 

0124240 01 001032 044460 

0124241 01 001033 003641 006415 

0124243 

0124243 01 001035 073043 

0124244 

0124244 01 001036 150400 123611 0123611 
0124246 

0124246 01 001040 153717 0124165 



01 


L 


02 


CIRM 


04 


BNC 


05 


LI 


06 


STM 


07 


LI 


08 


STM 


09 


STM 


10 


LI 


11 


B 


12 


REGPOS 


13 


L 


14 


NI 


15 


L 


16 


NI 


17 


AR 


18 


L 


19 


NI 


20 


SR 


21 


BNC 


22 


SEZSRCH 


23 


LRM 


24 


SR 


25 


BNC 


26 


TZ 


27 


BC 


28 


CALL 


001- 29 


BSA 


30 


ZBN 


31 


BNC 


32 


SN 


33 


ST 


34 


LI 



-001- 



36 

37 

38 XRMVPOX 

39 

40 XBCKTIM 

41 



CALL 
BSAI 

BNCL 



0:43:06 



2/06/81 **** 
W77D 



CTAPH 

RO,N(STATEWRD)(RAO) 

R0,SEIZST,4,KSK(4) ft IS SEIZE STATE USING POSITION TO GET 

DIRECTORY. 
REGPOS 

R1,BLKMAX+M(TRACK) 

R1,N(LASTBLK)(RA0),H(LASTBLK)+M(TRACK) 
pi DIRTRK 

R1 ^N (TRACK) (RAO) ,M (TRACK) 
R1,N(VERTRK)(RA0),M(VERTRK) 

R1,3IRL0C K SETUP IS COMPLETE FOR DIRECTORY SEARCH. 

SEZSRCH 



R1,N(PHYBLK)(RA0) 

R1,M(PHYBLK) 

R2,N(L0GBLK)(RA0) 

R2,M(L0GBLK) 

R1,R2 

R4,N(LASTBLK)(RA0) 

R4,M(LASTBLK)+M(ENDTRK) 

R4,R1 

SETOOR 



H GET START ADDRESS AND 



K INDEX INTO FILE 

K DESIRED DESTINATION IN R1 



B 



R0,R3,M(PTP) 

R0,R1 

NEG 

RO 

REVERIFY 

SPEEDTST 

SPEEDTST 

R5,15 

FAST 

R3,1 

R3.0CRA1) 

R10,TBS 

ORDEXC 
OXRDEXC 

RMVANDPO 

BCKTIM 



n PLACE PRESENT TAPE POSITION IN RO. 
* FIND DISPLACEMENT IN RO 
U FWD SEARCH NEEDED 



CHECK FOR FAST SEARCH 
#FLAG REV DIRECTION 



# UPDATE PTP 



n BACKSPACE FOR SLOW REVERSE SEARCH. 
» SUBROUTINE ORDEXC IS IN PROGRAM CTAPH 



0124247 45 SETOOR 

0124247 01 001041 103026 46 LN 

012*250 A7 XRMVCL 

0124250 01 001042 137000 123620 0123620 48 BL 



R1,OORADR 
RMVCLOSE 



#SET UP KEYWORD FOR P.O. 
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A09 



TAPE HANDLER PROGRAM 
POSITIONING SUBSTATE 
0124252 

0124252 01 001044 115400 

0124253 01 001045 004401 

0124254 

0124254 01 001046 037020 126615 0126615 

0124256 01 001050 126137 

0124257 01 001051 055003 0124262 

0124260 01 001052 061240 

0124261 01 001053 053433 0123714 



01 


NEG 






02 


n 


THE FWD 


SEARCH SEGMENT. 


03 




COM 


RO 


04 




AN 


R0,1 


06 




CALL 


S^EEDTST 


001- 07 




BSA 


SPEEDTST 


08 




SBN 


R5,15 


09 




BNC 


FAST 


10 




SBS 


N(STPST)<RAO),S 


11 




B 


RD1AGN 



0:43:06 2/06/81 **** 
CTAPH W770 



H RO NOW CONTAINS THE POSITIVE DISPLACEMENT 

TO DESTINATION. 
CHECK DISTANCE TO SPEED RELATIONSHIP 

# FLAG FUD DIRECTION. 



N(STPST)<RAO),S<STPST> 0BLOCK STORE OF BLOCK ON READ POSITION. 



0124262 



16 # THIS ROUTINE IS USED TO SET UP THE CONDITIONS REQUIRED FOR A FAST 

17 # SEARCH OF THE TAPE. A TIME CONSTANT MUST BE PREPARED. RO CONTAINS THE 

18 # NUMBER OF BLOCKS TO DESTINATION. ONLT 1 FAST SEARCH PER FILE IS ATTEMPTED. 



0124262 01 001054 162720 

0124263 01 001055 003020 

0124264 

0124264 01 001036 136000 124267 0124267 

0124266 01 001060 053004 0124272 

0124267 

0124267 01 001061 103420 0C0155 MASACS 

0124271 01 001063 053773 0124264 

0124272 

0124272 01 001064 103441 000031 
0124274 

0124274 01 001066 104401 

0124275 01 001067 005022 

0124276 01 001070 054776 012427* 

0124277 01 001071 030460 043461 CTSD 

0124301 01 001073 001460 

0124302 01 001074 044074 

0124303 01 001075 024137 

0124304 01 001076 054004 0124310 

0124305 01 001077 003641 004415 

0124307 01 001101 053003 0124312 

0124310 

0124310 01 001102 103641 002415 

017AT12 

0124312 

0124312 01 001104 173023 

0124313 01 001105 155731 0124244 



22 




ZBS 


0(RA1),S(P0S0K) 


23 




£R 


R1 


24 


ADBX 






25 




BX 


R0,ADD 


26 




B 


DIVIDE 


27 


ADD 






28 




AI 


R1,MSECPR 


29 




B 


ADBX 


30 


DIVIDE 






31 




LI 


R2,25 


32 


ADIV 






33 




AN 


R0,1 


34 




SR 


R1,R2 


35 




BC 


ADIV 


36 




LL 


R3..SYSTIM 


37 




AR 


R3,R0 


38 




ST 


R3,N(TIMEK)(RA0) 


40 




TBN 


R5,15 


41 




BC 


FFSRCH 


42 




LI 


R10,TFR 


43 




B 


SENDO 


44 


FFSRCh 






45 




LI 


R10,TFF 


46 


SENDO 






47 




CALL 


ORDEXCNT 


001- 48 




BSAI 


ordexCnt 


49 




BNC 


XRMVPOX 



U CLEAR THE POSITION KNOWN BIT 



n ADD MSEC PER BLOCK FOR EVERY BLOCK TO DEST. 



# 25 MSEC DIVISOR 

n ADD NUMBER OF 25 MSEC NEEDED 
n DIVIDE BT SUB. 



# ADD TO MAKE UP CONSTANT 



§ CHECK FOR DIRECTION OF FAST SEARCH. 

# FAST FORWARD 

It PREPARE FAST REVERSE. 



» PREPARE FAST FORWORD COMMAND. 

U SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 
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TAPE HANDLER PROGRAM 
POSITIONING SUBSTATE 

0124314 01 001106 053407 0123723 

0124315 

0124315 01 001107 140035 

0124316 01 001110 003441 C06415 
0124320 01 001112 017022 007477 

0124322 01 001114 055616 0124140 

0124323 01 001115 062720 

0124324 01 001116 053631 0124155 












• 




, 










' 




• 


• 


COMMON TAPE HANDLER 




0:43:06 2/06/81 


TRADE SECRET - S 







01 



05 REVERIFY 

06 L 

07 LI 

08 CRM 

09 BNC 

10 ZBS 

11 B 












SCTIM 



0:43:06 2/06/81 ***■* 
CTAPH H77D 



R1,N(LSTC0M)(RA0> *GET LAST COMMAND 6IVEN AT BASE 
R2,T8S 

R1,R2,M(C0M)+M(DVIC) *IF BACKSPACE MAS GIVEN RE-VERIFY 

POPZSTP 

0(RA1),S(POS0K> #FORCE VERIFY TO BACKSPACE AND READ 

VERSET 



.i 
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TAPE HANDLER PROGRAM 
WRITE SEGMENT OF TAPE HANDLER 
0124325 



C09 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 WRITESTATj E ^^ 0(r m HRITE smE WHKH SETS up THE TAPE BLOCK 

03 n AND INITIATES THE LOADING OF THE TAPE UNIT CONTROLLER (TDC). 

04 K R3-PTP, RA1=ADR OF PTP AND RAO=TCBADR 



0124325 01 001117 156001 „,„.„„ 

0124326 01 001120 153022 0124350 

0124327 01 001121 153176 0124525 

0124330 01 001122 153016 0124346 

0124331 01 001123 153221 0124552 

0124332 01 001124 153027 0124361 

0124333 01 001125 153045 0124400 

0124334 01 001126 153074 0124430 

0124335 01 001127 153136 0124473 

0124336 01 001130 153214 0124552 

0124337 01 001131 153233 0124572 

0124340 01 001132 153165 0124525 

0124341 01 001133 153005 0124346 

0124342 01 001134 153210 0124552 

0124343 01 001135 153130 0124473 

0124344 01 001136 153206 0124552 

0124345 01 001137 153237 0124604 



0124346 

0124346 01 001140 137000 125147 0125147 



08 


BPAX 


R1 


09 


B 


POSOKCHK 


10 


B 


BCKUP 


11 


B 


REDOX 


12 


B 


SCANSTOP 


13 


B 


HEOCET 


14 


B 


RESETNO 


15 


B 


CMPUTCRC 


16 


B 


LCADIT 


17 


B 


SCANSTOP 


18 


B 


DUPCHK 


19 


B 


BCKUP 


20 


B 


REDOX 


21 


B 


SCANSVOP 


22 


B 


LOADIT 


23 


B 


SCANSTOP 


24 


B 


RESDUP 


28 REDOX 






29 


BL 


REDO 



* SET UP BLOCK 



0124350 

0124350 01 001142 151120 _ mmM 

0124351 01 001143 054227 Oi24600 

0124352 

0124352 01 001144 124076 „«..„„ 

0124353 01 001145 054003 0124356 

0124354 01 001146 024075 

0124355 01 001147 054223 0124600 

0124356 

0124356 01 001150 103021 



33 POSOKCHK 

34 0MAKE SURE POSITION OF TAPE IS KNOWN BEFORE WRITE IS ALLOWED 



35 TBS 


N(MAINTXRAO) 


36 BC 


BASEAOD 


37 POSCHKIT 




38 ALSO CHECK 


IF IN READ ONLY 


39 TBN 


R3,S(RED0N) 


40 BC 


POMES 


41 TBN 


R3,S(POS0K> 


42 BC 


BASEADD 


43 POMES 




44 LN 


Rl,FATLWRIT 



#IF MAINT. IP ASSUME POSITION TAKEN CARE OF. 



STATE. 



/KHAS POSITION BEEN VERIFIED 
#YES 
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TAPE HANDLER PROGRAM 








0:43:06 2/06/81 **** 


WRITE SEGMENT OF TAPE 


HANDLER 






CTAPH W77D 


0124357 01 001151 037000 


125110 0125110 




01 BL 


SETSTAT 


0124361 






05 HEDSET 

06 U SET UP 


I/O BUFFER FOR OUTPUT. 


0124361 01 001153 162240 






07 ZBS 


N(STPST)(RAO),S(STPST) #CLEAR STOP STORE BIT. 


0124362 01 001154 037040 043332 CTSD 




08 A1S 


N(STATEFLG)+TCBADR 


0124364 01 001156 051326 






09 TBS 


N(DUP)(RA0),S(DUP) # CHECK IF FILE IS DUPLICATED 


0124365 01 001157 055015 


0124402 




10 BNC 


NOMATE 


0124366 01 001160 040026 






11 L 


R1,N(PHYBLK)(RA0) 


0124367 01 001161 003422 


0C3777 




12 NI 


R1,M(PHYBLK) 


0124371 01 001163 005061 


--_ 




13 SR 


R3,R1 


0124372 01 001164 002065 


003777 




14 STM 


R3,N(L0GBLK)(RA0),M(L0GBLK) H PREPARE FOR OTHER TU SEARCH 


0124374 






15 CALL 


COMTU ^COMPLIMENT TAPE UNIT NUMBER. 


0124374 01 001166 073026 




-001- 


16 BSAI 


CXOMTU U SUBROUTINE COMTU IS IN PROGRAM CTAPH 


0124375 01 001167 161345 






17 SBS 


N(ERNA)(RAO),S(ERNA) (CABORT ON ANY ERROR 


0124376 






18 LDPOS 




0124376 01 001170 137000 


123641 0123641 




19 BL 


POSITIONLOD 


0124400 






20 RESETNO 




0124400 01 001172 162345 







21 ZBS 


N(ERNA)(RAO),S(ERNA) #CLEAR AND ALLOW ERROR RECOVERY 


0124401 






22 CALL 


COMTU ^COMPLIMENT TAPE NUMBER. 


0124401 01 001173 073026 




-001- 


23 BSAI 


CXOMTU K SUBROUTINE COMTU IS IN PROGRAM CTAPH 


0124402 






24 NOMATE 




0124402 01 001174 131400 


045266 LAYOUT 




25 LAL 


RO,I 0BUF,RA1 


0124404 01 001176 040107 






26 L 

27 TAPEHL OW 


R4,N?LASTBLK)(RA0) 

0(1177) # 13596 






-001- 


28 NOTE 
31 CPATCH1 BGNP 


************* THE FIRST ADDRESS OVERWRITTEN IS 001177 ********** 
0(765) H 13596 


0124405 01 001177 037000 


113547 0113547 


-001- 


32 BL 


XXX466 






-001- 


33 NOTE 


CPATCH1 'CSECT' 






-001- 


34 NOTE 


***************** PATCH AREA BEGINS AT 000765 **************** 


0113547 




-001- 


37 XXX466 PATCHAREA 


0113547 03 000765 140026 






38 L 


R1,N(TRACK)(RA0) 


0113550 03 000766 016061 


014000 




39 IRM 


R3,R1,M(TRACK) 


0113552 03 000770 017103 


017777 




40 CRM 


R4 / R3,M(LASTBLK)+M(ENDTRK) # SET EOF ON CLIENTS LAST BLK 


0113554 






41 ENDP 


n 13596 


0113554 03 000772 037000 


124407 0124407 


-001- 


42 BL 


XXX468 






-001- 


43 NOTE 


************ LAST PATCH ADDRESS USED IS 000773 *************** 






-001- 


44 NOTE 


***** NUMBER OF PATCH WORDS USED IS 7 (DECIMAL) ******** 
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TAPE HANDLER PROGRAM 

WRITE SEGMENT OF TAPE HANDLER 



E09 



0:43:06 2/06/81 **** 
CTAPH W77D 



0124*07 

0124407 01 001201 1S5002 

0124410 



-001- 01 XXX468 OWCONTINUE 
0124411 02 BNC NOEOFSET 

03 EOW U 13596 

-001- 04 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001201 ********** 



0124410 01 001202 061720 

0124411 

0124411 01 001203 151160 

0124412 01 001204 062160 

0124413 01 001205 054006 0124421 

0124414 01 001206 040026 

0124415 01 001207 016061 014000 
0124417 01 001211 002460 017777 

0124421 

0124421 

0124421 01 001213 137020 127351 0127351 

0124423 01 001215 155625 0124250 



-001- 



07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 



SBS N(E0F)(RA1),S<E0F> 
NOEOFSET 

TBS N(ABWRT)(RAO),S<ABWRT) 0CHECK FOR BLIND WRITE 

ZBS N(A8WRT)(RA0),S(ABWRT> 

BC NOFORMAT (KFORGET ABOUT BLOCK FORMAT 

L R1,N(TRACK)(RA0> 

IRM R3,R1,M (TRACK) « SET UP TRACK 

STM R3,N(BLKADR)(RA1),M(BLKADR)+M(TRCK) 



NOFORMAT 

CALL 

BSA 

BNC 



FORM THE HEADER 



BOUNDCHK 
BOUNDCHK 
XRMVCL 



n CHECK RANGE OF CLIENT ACCESS. 



0124424 01 001216 003000 

0124425 01 001217 034400 046765 MASACS 
0124427 01 001221 053151 0124600 



23 n START TO COMPUTE CRC OVER IOBUF 

24 ZR RO 

25 STL RO,I OBUF+eUFLEN 

26 B BASEADD 



MNIT CCRC WORD IN I_OBUF 



0124430 

0124430 01 001222 140051 

0124431 01 001223 037040 043330 CTSD 
0124433 01 001225 003421 000077 
0124435 01 001227 030520 046765 MASACS 
0124437 01 001231 031400 045266 LAYOUT 
0124441 91 001233 031000 126743 0126743 
0124443 01 001235 034400 046765 MASACS 

0124445 01 001237 010452 

0124446 01 001240 043402 

0124447 

0124447 01 001241 103063 

0124450 

0124450 01 001242 116545 000017 
0124452. 01 001244 042166 ■ 

0124453 01 001245 010524 

0124454 01 001246 010404 

0124455 01 001247 016120 170000 



30 


CMPUTCRC 




31 


#00 ACTUAL CRC 


CALC. OVER 64 WORDS 


3? 


L 


R2,N(BUFCT)(RA0> 


33 


A1S 


TCBADR+NCBUFCT) 


34 


LI 


R1,WRDBUF-1 


35 


LL 


R5,I OBUF+BUFLEN 


36 


LAL 


RO,I 0BUF,RA1 


37 


LAL 


RO,XORTAB,RAO 


38 


STL 


RO,I OBUF+BUFLEN 


39 


RLN 


R2,6 


40 


LAX 


R0,R2(RA1) 


42 


CRCL0P1 




43 


LN 


R3,3 


44 


CRCL0P2 




45 


LRM 


R6,R5,0(17> 


46 


LX 


R7,R6(RA0) 


47 


RRN 


R5,4 


48 


RRN 


R0,4 


49 


IRM 


R5,R0,0<17)*E(12) 



PER BASE SCAN. 

#GET BUFFER POINTER FOR NEXT 64 WORDS 

#ADD TO POINTER. 



#SET UP ADDRESS REG. 

#R6X(64> 

#SET REG TO NEXT WORD AND LOAD RO TO NEXT 
WORD 

0FOUR PASS OPERATION ON EACH WORD. 
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TAPE HANDLER PROGRAM 

WRITE SEGMENT OF TAPE HANDLER 

0124457 01 001251 015127 

0124460 01 001252 036060 124450 0124450 

0124462 01 001254 041401 

0124463 01 001255 036020 124447 0124447 

0124465 01 001257 034520 046765 MASACS 

0124467 01 001261 003445 001400 MASACS 

0124471 01 001263 055111 0124602 

0124472 01 001264 053106 0124600 



0:43:06 2/06/81 ft*** 
CTAPH W77D 



01 


XR 


R5,R7 


02 


BX 


R3,CRCL0P2 


03 


LA 


R0,1(RA1) 


04 


BX 


R1,CRCL0P1 


05 *DONE 


WITH 64 


WORDS 


06 


STL 


R5,I OBUF+BUFLEN 


07 


CI 


R2,LASTBUF 


08 


BNC 


BASE8ACK 


09 


B 


BASEADD 



*GET NEXT WORD FOR CRC ALGORITM. 



0WAS ENTIER BUFFER SCANNED? 

#N0 

0DONE WITH CRC CALC. 



0124473 



0124473 01 
0124475 

0124475 01 

0124476 01 

0124477 01 

0124500 01 
0124501 

0124501 01 
0124503 01 

0124505 01 
0124507 
0124507 01 

0124510 01 
0124511 

0124511 01 
0124513 01 

0124515 01 
0124517 
0124517 01 

0124520 01 
0124521 
0124521 

0124521 01 

0124522 01 

0124523 01 

0124524 01 



001265 103641 042013 

001267 073023 

001270 155260 

001271 003000 

001272 044011 



0124756 



001273 037020 126453 0126453 
001275 150400 123411 0123411 



001277 003641 140013 



001301 073023 

001302 155246 



0124756 



001303 037020 126453 0126453 
001305 150400 123411 0123411 

001307 003641 005415 

001311 073043 

001312 155236 0124756 

001313 073022 

001314 000005 

001315 144014 

001316 053054 0124600 



13 LOADIT 

14 n PREPARE THE TDC FOR WRITE FUNCTION. 

15 # THE BUFFER MUST BE PREPARED FOR LOADING 



-001- 



-001- 



-001- 



-001- 



-001- 

-001- 
-002- 
-001- 



17 


LI 


R10,BSLD0H 


18 


CALL 


ORDEXCNT 


19 


BSAI 


ordexCnt 


20 


BNC 


XRMVPO 


21 


ZR 


RO 


22 


ST 


RO,N(BUFCT)(RAO) 


23 


CALL 


LOADBUF 


24 


BSA 


LOADBUF 


25 


BNCL 


CLOSESTATE 


27 


LI 


R10,BSWB 


28 


CALL 


ORDEXCNT 


29 


BSAI 


ordexCnt 


30 


BNC 


XRMVPO 


31 


CALL 


LOADBUF 


33 


BSA 


LOADBUF 


34 


BNCL 


CLOSESTATE 


36 


LI 


R10,TWT 


37 


CALL 


ORDEXC 


38 


BSAI 


OXRDEXC 


39 


BNC 


XRMVPO 


40 


8GNTIM 


MSEC-IBG 1BUF 


41 


CALL 


TIMOUT 


42 


BSAI 


TXIMOUT 


43 


DATA 


5 


44 


ST 


RO,N(TIMEK)<RAO> 


45 


B 


BASEADD 



K SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 



H LOAD ERROR HIT TAPE UNIT 

# SWITCH THE TAPE BUFFERS 

H SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 

>f LOAD UP SECOND BUFFER BOTH WILL BE LOADED 
AT BASE 

U LOAD ERROR 

M PREPARE TO WRITE THE TAPE 

II START TAPE WRITING 

U SUBROUTINE ORDEXC IS IN PROGRAM CTAPH 



U SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
» TIMOUT+1 



' 
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_A2L 



TBN 
BC 



BNC 
LRU 
TZ 
BNC 



TAPE HANDLER PROGRAM 
WRITE SEGMENT OF TAPE HANDLER 

0124525 01 BCKUP 

0124525 01 001317 124276 04 

0124526 01 001320 054007 0124535 05 

07 

0124527 01 001321 024075 08 

0124530 01 001322 055013 0124543 0? 

0124531 01 001323 016443 003777 10 

0124533 01 001325 014042 11 

0124534 01 001326 055003 0124537 12 

0124535 13 ADD1 

0124535 01 001327 162400 14 ZBS 

0124536 01 001330 053011 0124547 16 B 

0124537 17 D0BKUP1 
0124537 01 001331 104077 18 SN 

0124540 01 001332 044460 19 ST 

0124541 01 001333 004056 20 SN 

0124542 01 001334 044057 21 ST 

0124543 22 DOBKUP 
0124543 01 001335 103641 006415 23 LI 

0124545 25 CALL 

0124545 01 001337 073023 -001- 26 BSAI 

0124546 01 001340 155210 0124756 27 BNC 

0124547 28 ADBKTM 
0124547 01 1/01341 137040 043332 CTSD 29 A1S 
0124551 01 001343 053475 0124246 30 B 



0:43:06 2/06/81 **** 
CTAPH W77D 



STATE REQUIRED TO BACKSPACE TU FOR WRITE OPERATION 



R11,S(B0T) H IS TAPE ALREADY AT BOT 

ADD1 # YES ZERO LOW BIT OF PTP (NEEDED ONLY FOR 

WRITE) 
H THE FOLLOWING IS USED BY WRITE ROUTINE ONLY. TRANSPARENT TO OTHER STATES. 
TBN R3,S(P0S0K) 
DOBKUP 

R2,R3,M(BLKADR) 

R2 H IS BLK NO 0. 

D0BKUP1 



0(RA1>,0 
ADBKTM 



» INFORM THAT HEADS ARE AT BLK 0. (ASSUMES 
PTP KNOWN) 



#SET UP PTP TO 1 MINUS ITS PRESENT COUNT 



R3,1 

R3,0(RA1) 

R2 2 

R2^N(LSTG00D)(RA0) #SET UP LAST GOOD BLK TO REFLECT BACKSPACE 



R10,TBS 

ORDEXCNT 

ordexCnt 
XRMVPO 

TCBADR+N(STATEFLG) 
XBCKTIM 



* BACKSPACE THE UNIT TO PREPARE FOR VERIFICAT 

ION. 
H SEND BACKSPACE TO UNIT ON TRACK ZERO. 
U SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 



0124552 
0124552 
0124552 01 
0124554 
0124555 

0124556 01 

0124557 01 
0124560 01 
0124561 
0124561 

0124562 01 

0124563 01 
0124565 01 
0124567 
0124567 01 
0124571 01 



34 SCANSTOP 



01 
01 



01 



001344 137020 127124 0127124 -001- 

001346 155026 0124602 

001347 051200 

001350 055003 0124561 

001351 062200 

001352 053020 0124600 

001353 161220 

001354 051120 

001355 050000 124140 0124140 
001357 037040 043332 CTSD 

001361 037020 127155 0127155 -00V 
001363 153011 0124602 



35 

36 

37 

38 

39 

40 

41 

42 RMVCL 

43 

44 

45 

46 

47 

48 

49 



CALL 

BSA 

BNC 

TBS 

BNC 

ZBS 

B 

SBS 

TBS 

BCL 

A1S 

CALL 

BSA 

B 



TIMOUTCK *SEE IF INT. HAS TIMED OUT 

TIMOUTCK 

BASEBACK 

N(IOCMP)(RA0),S(IOCMP) n HAS INT SUCCEEDED IN TASK 

RMVCL 

N(IOCMP)(RAO),S(IOCMP) 

BASEADD 

N(SRFAL)(RAO),S(SRFAL) 0MAKE SURE FAILURE IS SET FOR MAINT 

N(MAINT) (RAO), S (MAINT) #IS MAINT IN CONTROL? 

POPZSTP #YES GET OUT LET MAINT HAVE SYSTEM. 

TCBADR+N(STATEFLG) 

CRCEREC *SET UP MAINT FOR RECOVERY ATTEMPT. 

CRCEREC 

BASEBACK 
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B01 



TAPE HANDLER PROGRAM 

WRITE SEGMENT OF TAPE HANDLER 



0124572 
0124572 
0124572 01 001364 137020 127132 0127132 

0124574 01 001366 155006 0124602 

0124575 01 001367 051326 

0124576 01 001370 055012 0124610 

0124577 

0124577 01 001371 073026 

0124600 

0124600 01 001372 137040 043332 CTSD 

0124602 

0124602 01 001374 137000 001062 CBLM 



04 DUPCHK 



-001- 



-001- 



CALL 

BSA 

BNC 

TBS 

BNC 

CALL 

BSAI 

12 BASEADD 

13 A1S 

14 BASEBACK 

15 BL 



0124604 
0124604 
0124604 01 

0124606 01 
0124607 

0124607 01 



0124610 
0124610 01 

0124612 01 

0124613 01 
0124615 

0124615 01 

0124616 01 

0124617 01 
0124621 01 

0124623 01 

0124624 01 

0124625 01 
0124627 01 

0124630 01 

0124631 01 
0124633 01 

0124635 01 

0124636 01 

0124637 01 
0124641 
0124641 



001376 137020 127132 0127132 
001400 155774 0124602 



001401 073026 



-001- 



-001- 



1? RESDUP 

20 

21 

22 

23 
24 



CALL 

BSA 

BNC 

CALL 

BSAI 



01 
0124642 01 



001402 130400 045266 LAYOUT 

001404 024016 

001405 050400 124140 0124140 

001407 140046 

001410 040027 

001411 003442 014000 
001413 017041 014000 

001415 054032 0124655 

001416 051365 

001417 050000 124140 0124140 

001421 003020 

001422 044025 

001423 003440 004001 
001425 002045 014000 
001427 024055 

001430 054017 0124655 

001431 002046 017777 

001433 073045 

001434 153534 0124376 



28 EOFLOOK 
2? 

30 
31 



32 ATLOGEND 



LL 

TBN 
BNCL 



-001- 



33 
34 
35 
36 
37 
38 
3? 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49' 



L 

L 

NI 

CRM 

BC 

TBS 

BCL 

ZR 

ST 

AI 

STM 

TBN 

BC 

STM 

CALL 

BSAI 

B 



CRCCHK 

CRCCHK 

BASEBACK 

N(DUP)(RAO),S(DUP) 

EOFLOOK 

COMTU 

CXOMTU 

TCBADR+N(STATEFLG) 

CTAPHRTN 



CRCCHK 

CRCCHK 

BASEBACK 

COMTU 

CXOMTU 



0:43:06 2/06/81 **** 
CTAPH W77D 



#CHECK CRC 

0EXIT UPON FAILURE. LET RECOVERY TAKE OVER. 
# CHECK IF FILE IS AUTO-DUP 



# SUBROUTINE COMTU IS IN PROGRAM CTAPH 



#CHECK CRC 

It LET RECOVERY TAKE OVER. 

II SUBROUTINE COMTU IS IN PROGRAM CTAPH 



(CWAS THIS A DEOF BLOCK 



RO,I OBUF 

R0,S?DEOF> 

POPZSTP 

R2,N(PHYBLK)(RA0) 

R1,N(LASTBLK)(RA0) 

R2,M(TRACK> 

R2,R1,M(TRACK) 

CLST 

N(SEEZ)(RAO),S<SEEZ) 

POPZSTP 

R1 

R1,N(L0GBLK)(RA0> #INIT VARIOUS TCB WORDS 

R2,ES(TRACK)+1 

R2,N(VERTRK)(RA0),M(VERTRK) (CADJUST VERIFY TRACK 

R2,S(DUP> *AND TO TRACK AND CHECK FOR OVERFLOW 

C !; S T TERROR ATTEMP TO WRITE ON NON-EXISTENT TRACK 

R2,N(PHYBLK)(RA0),M(PHYBLK)+M(TRACK) 

POPSTATE 

pops t Ate n SUBROUTINE POPSTATE IS IN PROGRAM CTAPH 

LDPOS ^POSITION PRIMARY TAPE TO BOT FOR READ OR 
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TAPE HANDLER PROGRAM 

WRITE SEGMENT OF TAPE HANDLER 






CQ1 



0:43:06 2/06/81 **** 
CTAPH M77D 



WRITE OF BLK 1 
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TAPE HANDLER PROGRAM 
TAPE RECOVERY FROM MRF 
0124643 



D01 



0:43:06 



2/06/81 **** 



CTAPH 

01 MRFINIT 

02 # THIS STATE WILL PLACE THE TAPE SYSTEM INTO A KNOWN STATE AND 

03 # CONDITION READY FOR CLIENT USE. THE TAPE DEVICES ARE INITIALIZED 

04 AND REWOUND TO THE BEGINNING OF TAPE. ACCESS TO THIS ROUTINE IS 

05 » MADE VIA TTY REQUEST OR SYSTEM LEVEL 2 INITIALIZATION. 



W77D 



0124643 01 

0124645 01 

0124646 01 

0124647 01 
0124650 01 

0124652 01 

0124653 01 

0124654 01 
0124655 
0124655 



001435 131542 020006 TDATA 
001437 004157 

001440 041621 

001441 003136 

001442 003641 004415 

001444 056001 

001445 153004 0124657 

001446 153020 0124674 



01 001447 137000 123411 0123411 



09 

10 

11 

12 

13 

14 

15 

16 

17 CLST 

18 



LAL 


R6,TAPETBL,RA1 


SN 


R6,1 


LA 


R9,1(RA1) 


LN 


R5,S(B0T) 


LI 


R10,TFR 


BPAX 


R1 


B 


REWINDU 


1 


BOTPOS 



* PREPARE FOR TAPE DEVICE SCANS 
#SET UP RA FOR INDEX OPERATION 
^PREPARE FOR STATUS CHECK AND FAST REV. 



BL 



CLOSESTATE 



0124657 



0124657 01 001451 142626 



0124660 
0124660 01 

0124662 01 
0124663 

0124663 01 

0124664 01 
0124665 
0124665 
0124667 01 
0124670 

0124670 01 
0124671 

0124671 01 
0124673 0? 



01 



001452 
001454 

001455 
001456 

001457 
001461 



037020 127264 0127264 
154003 0124665 



073032 
155004 



0124670 



136140 124657 0124657 
053711 0124600 



001462 103025 



22 REWINDU 

23 n THIS SUB-STATE IS SHARED WITH THE REPACK STATE. 



001463 
001465 



037020 126766 0126766 
153772 0124665 





25 


LX 


R9,R6(RA1> 




26 SEE 


IF REQUESTED BIT IS 




27 


CALL 


CHKTSTAT 


001- 


28 


BSA 


CHKTSTAT 




29 


BC 


R6BX 




30 


CALL 


ORDEXCAB 


UU1- 


31 


BSAI 


ordexCab 




32 


BNC 


BXRMV 




33 R6BX 








34 


BX 


■R6, REWINDU 




35 


B 


BASEADD 




36 BXRMV 








37 


LN 


R1, ORDER 




38 


CALL 


REMOVTU 


001- 


39 


BSA 


REMOVTU 




40 


B 


R6BX 



SET 



#GET ENABLE ADDRESS. 



H SEND REWIND ORDER. 

U SUBROUTINE ORDEXCAB IS IN PROGRAM CTAPH 



0124674 



44 BOTPOS 

45 # THIS SUBSTATE IS SHARED WITH THE REPACK STATE. 
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TAPE HANDLER PROGRAM 
TAPE RECOVERY FROM MRP 

» 



-001- 



01 TAPEHL OW 

02 NOTE 



E01 



0:43:06 2/06/81 **** 

CTAPH W77D 

0(1466) # 13058 

************* THE FIRST ADDRESS OVERWRITTEN IS 001466 ********** 



0124674 
0124674 01 
0124676 
0124676 
0124676 01 

0124700 01 

0124702 01 

0124703 01 

0124704 01 

0124705 01 

0124706 01 

0124707 01 

0124711 

0124711 01 

0124712 01 
0124714 01 

0124716 01 

0124717 01 



001466 131000 043317 CTSD 

001470 137020 127264 0127264 

001472 150000 113725 0113725 

001474 024272 

001475 054677 0124602 

001476 024276 

001477 054004 0124711 

001500 024270 

001501 050400 113725 0113725 

001503 151057 

001504 050000 113720 0113720 
001506 037040 043336 CTSD 

001510 040012 

001511 037000 113706 0113706 



05 
06 
07 
08 
-001- 09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
1? 
20 
21 
22 
23 
24 
25 
26 
27 
28 
-001- 29 
-001- 30 
-001- 31 



BOTPOS 

LAL 
NXTSCAN 

CALL 

BSA 
DPATCH NOTE 

BCL 

TBN 

BC 
K ********** 

TBN 

BC 

TBN 
DPATCH NOTE 

BNCL 



R0,TCBADR,RA0 



U CHECK FOR BOT 



n IF TAPE IN MOTION GONE, ERROR EXIST 



********** 



CHKTSTAT 

CHKTSTAT 

! CHANGE BCL TO BC 

WATNX 

R11,S(TIM) 

BASEBACK 

ARE BOTH TAPES INSERTED 
R11,S(B0T) 
TB15 

R11,S(E0T) 

! CHANGE BNCL TO BNC 
WATNX 
H ************************************** 

TB15 

15(RA0>,2 

! CHANGE BCL TO BC 

REMOVTU, 

TCBADR+15 

A MRF INIT *** 

R0,10(RA0) 

0(1124) 

XXX495 

CPATCH1 'CSECT* 

***************** PATCH AREA BEGINS AT 001124 *********..****** 



TBS 
DPATCH NOTE 

BCL 

A1S 
H *** IS THIS 

L 
CPATCH1 BGNP 

BL 

NOTE 

NOTE 



U WAS TFR ORDER GIVEN 4 TIMES ? 



# 13058 



0113706 

0113706 03 001124 103402 000017 

0113710 03 001126 003405 000011 

0113712 03 001130 054004 0113716 

0113713 03 001131 040033 

0113714 03 001132 003022 

0113715 03 001133 044033 

0113716 

0113716 03 001134 137000 124547 0124547 
0113720 

0113720 03 001136 103025 

0113721 03 001137 003000 

0113722 03 001140 044017 

0113723 

0113723 03 001141 037020 126766 0126766 



-001- 34 XXX495 PATCHAREA 



-001- 



35 

36 

37 

38 

39 

40 

41 

42 AMRF 

43 

44 REMOVTU 

45 

46 

47 

48 

49 



NI R0,15 
CI RO,MRFST 
BC AMRF 
******************************* 



L R1,N(STATEFLG)(RA0) 

LN R1,2 

ST R1,N(STATEFLG)(RA0) 

BL ADBKTM 

LN R1, ORDER 

ZR RO 

ST R0,15(RA0) 

CALL REMOVTU 

USA REMOVTU 
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TAPE HANDLER PROGRAM 


0:43:06 2/06/81 **** 


TAPE RECOVERY FROM MRF 


CTAPH W77D 


0113725 01 WATNX 
0113725 03 001143 136140 1246,6 0124676 02 BX 
0113727 03 AOBKTM 
0113727 03 001145 103000 04 ZR 

0113730 03 001146 044017 05 ST 

0113731 03 001147 037000 124547 0124547 06 BL 
0113731 07 ENOP 

-001- 08 NOTE 
-001- 09 NOTE 


R6,NXTSCAN 

RO 

R0,15(RA0) 

ADBKTM 

NR if 13058 

A*********** LAST PATCH ADDRESS USED IS 001150 *************** 

***** NUMBER OF PATCH WORDS USED IS 21 (DECIMAL) ******** 


0124721 12 EOH 

-001- 13 NOTE 

t 


■ 
* 13058 
*************** THE LAST ADDRESS OVERWRITTEN IS 001512 ********** 




- 


■ 












■ 


• 






■ 








■ 




■ 


■ 




• 
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TAPE KAUDLER PROGRAM 
COPY TAPE TO TAPE ROUTINE 
012*721 



JSL 



0:43:06 2/06/81 **** 
CTAPH W77D 



02 #°THIS A STATE IS RESPONSIBLE FOR READING A BLOCK OFF ONE TAPE AND 

03 If WRITING IT ONTO ITS MATE TAPE. 



0124721 01 001513 156001 

0124722 01 031514 153022 0124744 

0124723 01 001515 153027 0124752 



07 BPAX 

08 B 

09 B 

10 TAPEHL OW 
-001- 11 NOTE 



R1 

POSMATE 

REDSTD 

************* THE FIRST ADDRESS OVERWRITTEN IS 001516 ********** 



0124724 01 001516 153014 0124740 

0124725 01 001517 153007 0124734 

0124726 01 001520 153010 0124736 

0124727 01 001521 153623 0124552 

0124730 01 001522 153031 0124761 

0124731 01 001523 140047 

0124732 01 001524 037000 115006 0115006 



14 B SKPREWND 

15 B REWINDTUS 

16 B VERSTPS 

17 B SCANSTOP 

18 B WRITEMATE „ ... _ 

19 tf CHECK IF LAST BLK WRITTEN OUT IS THE LAST BLOCK ON THE FILE 
20 



21 CPATCH2 BSNP 
-001- 22 BL 
-001- 23 NOTE 
-001- 24 NOTE 



R2,N(LASTBLK)<RA0) 

0(677) n 12648 

XXX505 

CPATCH2 'CSECT 1 

***************** PATCH AREA BEGINS AT 000677 **************** 



0115006 

0115006 04 000677 140026 

0115C07 04 0007C0 016061 014000 

0115011 04 000702 004077 

0115012 04 000703 003021 

0115013 04 000704 002033 000017 

0115015 04 000706 017043 017777 

0115017 04 000710 050400 124752 0124752 
0115021 

0115021 04 000712 073026 

0115022 04 000713 137000 124140 0124140 
0115024 



0115024 04 000715 124272 „..«„ 

0115025 04 000716 054004 0115031 

0115026 04 000717 040013 

0115027 04 000720 004402 

0115030 04 000721 044013 



-001- 27 
28 

29 
30 
31 
32 

34 
35 
36 
37 
-001- 33 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



XXX505 PATCHAREA , „, 
L R1,N(TRACK)(RA0) 
IRM R3,R1,M(TRACK) 
SN R3,1 

STM K(STATEFLG)<RA0),MSK(4> PREPARE TO CONTINUE READ OF NEXT 

BLOCK* 
CRN R2,R3,M(TRACK)+M<LASTBLK> 
DEPATCH NOTE REPLACE BNCL WITH BNC 
BNCL REDSTD 

BSAI CXOMTU * SUBROUTINE COMTU IS IN PROGRAM CTAPH 

BL POPZSTP 

ei> TPPUND 

» IF THE INTERRUPT HANDLER FINDS A DEOF BIT IT WILL ADD 1 TO 
# THE STATE FLAG AND SKIP THIS SUSTATE. OTHERWISE THIS 
ft SUBSTATE WILL INCREMENT THE STATE FLAG BY 3 TO SKIP OVER 
(i THE REWIND CODE. 

TBN R11,S<TIM) 

BC DONTINC 

L R0,N(STATEFLi3)(RA0) 

AN R0,2 

ST RO,N(STATEFLG)(RAO) 
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A02 



TAPE HANDLER PROGRAM 

COPY TAPE TO TAPE ROUTINE 

0115031 

0115031 04 000722 137000 124602 0124602 

0115031 






-001- 
-001- 



01 OONTINC 

02 BL 

03 ENDP 

04 NOTE 

05 NOTE 



0:43:06 2/06/81 **** 
CTAPH W77D 



BASEBACK 

NR ft 12648 

************ (.AST PATCH ADDRESS USED IS 000723 *************** 

***** NUMBER OF PATCH WORDS USED IS 21 (DECIMAL) ******** 



0124734 



08 
-001- 09 



EOW 
NOTE 



H 12648 
*************** THE LAST ADDRESS OVERWRITTEN IS 001525 ********** 



-001- 



12 TAPEHL OW 

13 NOTE 



0(1526) ft 12648 

************* THE FIRST ADDRESS OVERWRITTEN IS 001526 ********** 



0124734 

0124734 01 001526 137000 123551 0123551 

0124736 

0124736 01 001530 137000 124111 0124111 

0124740 

0124740 01 001532 137000 115024 0115024 

0124742 . 



0124742 

0124742 01 001534 137000 124140 0124140 



0124744 
0124744 

0124744 01 001536 173026 

0124745 

0124745 01 001537 173024 

0124746 01 001540 155774 0124742 

0124747 01 001541 024036 

0124750 01 001542 054772 0124742 

0124751 01 001543 053241 0125212 

0124752 

0124752 

0124752 01 001544 173026 



16 If TRANSFER VECTORS FOR SHORT BRANCHES 

17 REWINDTUS 



-001- 



-001- 
-001- 



18 


BL 


REWINDTU 


19 VERSTPS 




20 


BL 


VERSTP 


21 SKPREWND 




22 


BL 


SKIPRWND 


23 


EOW 




24 


NOTE 


*********** 


27 PIP 






28 


BL 


POPZSTP 


32 POSMATE 




33 


CALL 


COMTU 


34 


BSAI 


CXOMTU 


35 


CALL 


STATSET 


36 


BSAI 


S XT AT SET 


37 


BNC 


PIP 


38 


TBN 


R1,S(RED0N) 


39 


BC 


PIP 


40 


B 


ADDPOS 



ft 12648 
*************** THE LAST ADDRESS OVERWRITTEN IS 001533 ********** 



#DONE 



ft SUBROUTINE COMTU IS IN PROGRAM CTAPH 

#CHECK MATE STATUS 

ft SUBROUTINE STATSET IS IN PROGRAM CTAPH 

#CHECK IF UNIT CAN BE WRITTEN. 

ttGO TO NEXT STATE AND POSITION RECIPIENT 
TAPE. 



45 REDSTD 

46 * SUB-STATE USED TO READ A BLOCK OFF STANDARD UNIT 

47 CALL COMTU 

-001- 48 BSAI CXOMTU ft SUBROUTINE COMTU IS IN PROGRAM CTAPH 
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B02 



TAPE HANDLER PROGRAM 

COPY TAPE TO TAPE ROUTINE 

0124753 01 001545 103641 003415 
0124755 

0124755 01 001347 073043 

0124756 

0124756 01 001550 150400 123611 0123611 



01 LI 

02 CALL 
-001- 03 BSAI 

04 XRHVPO 

05 BNCL 

06 TAPEHL OW 
-001- 07 NOTE 



R10,TRB 

ORDEXC 

OXRDEXC 



0:43:06 2/06/81 **** 
CTAPH W77D 
IfSEND READ ONE BLK ORDER. 
It SUBROUTINE ORDEXC IS IN PROGRAM CTAPH 



RMVANDPO 

2*1********** THE FIRST ADDRESS OVERWRITTEN IS 001552 ********** 



0124760 01 001552 053620 
0124761 



0124600 



10 

11 

-001- 12 



B BASEADD 

row * 12648 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 001552 ********** 



0124761 
0124761 

0124761 01 001553 173026 

0124762 01 001554 153075 



18 WRITEMATE 

19 CALL COMTU 
-001- 20 BSAI CKOMTU 

0125057 21 B READWRITE 



#SET TU NUMBER MATE OF STANDARD 

H SUBROUTINE COMTU IS IN PROGRAM CTAPH 

WRITE A BLOCK AND CHECK CRC. 
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TAPE HANDLER PROGRAM 
MAINT STATE-REREAD 
0124763 



C02 

0:43:06 2/06/81 **** 
CTAPH W77D 

01 RETRYSTATE 

02 * MAINTENANCE STATE INVOLVED WITH RE-READING A BLOCK WHICH HAS 

03 II FAILED THE CRC ROUTINE AT THE INTERRUPT LEVEL. THE TAPE BLOCK WILL 

04 ft BE READ ONE MORE TIME TO SEE IF FAILURE WAS TRANSIENT. A SIMPLE 

05 # METHOD OF ACCOMPLISHING THIS IS TO INVOKE THE VERIFY STATE. THIS STATE 

06 * WILL SIMPLY BACKSPACE AND TRY TO READ THE BLOCK ADDRESS INTO THE STATUS 

07 H BLOCK. TWO TRYS ARE ATTEMPTED BEFORE ABORTING. THIS MAINTENANCE STATE 

08 # WILL GAIN CONTROL UPON THE COMPLETION OR ABORT OF VERIFY. 



0124763 01 

0124764 01 
0124765 

0124765 01 

0124766 01 

0124767 01 
0124770 

0124770 01 

0124771 01 

0124772 01 

0124773 01 

0124774 01 

0124775 01 
0124776 

0124776 01 



001555 156001 

001556 153013 0124777 

001557 153033 0125020 

001560 153066 0125054 

001561 153076 0125065 

001562 153535 0124525 

001563 153156 0125147 

001564 153170 0125162 

001565 153223 0125216 

001566 153227 0125223 

001567 153070 0125065 

001570 153236 0125234 



CHK 



12 

13 

14 

15 

16 

17 

18 XBCKUP 

19 

20 

21 

22 

23 

24 

25 RES 

26 



BPAX 
B 

B 
B 
B 

B 
B 
B 
B 
B 
B 



R1 
INVOKVER 

CHKVER 

REWRITE 

CHKRESULTS 

BCKUP 

REDO 

GETBADBLK 

REDMATE 

RERITE 

CHKRESULTS 

RESRTN 






0124777 

0124777 01 
0125001 01 

0125003 01 

0125004 01 

0125006 01 

0125007 01 

0125010 01 

0125011 01 

0125012 01 

0125014 01 

0125015 01 

0125016 01 



30 INVOKVER 



001571 130420 043311 CTSD 
001573 017420 007407 

001575 , !4236 0125241 

001576 037040 043332 CTSD 

001600 022075 

001601 044460 

001602 051220 

001603 062220 

001604 050000 124155 0124155 

001606 003022 

001607 003007 

001610 037000 123726 0123726 



?!' 

33 

34 
35 

35 

38 
3? 
40 
41 
42 
43 



SET UP 
LL 

CIRM 
BC 
A1S 
ZBN 
ST 
TBS 
ZBS 
BCL 
LN 
LN 
BL 



CONTROL AND VERIFY STATE REQUEST. 
R1,MTCSV 

R1,VERST,0,MSK<4> 
RSTNOPO 

N(STATEFLG)+TCBADR 
R3,S(P0S0K) 
R3,0(RA1) 



n CHECK IF VERIFY ACTIVE 

^VERIFY CRC ERROR. VERIFY HAS OWN RECOVERY 

U NEXT SUBSTATE 



# CLEAR TAPE STATUS POSITION OK BIT. 
N(SRFAL)(RAO),S(SRFAL) 0CHECK IF TIMEOUT OCCURRED. 
N(SRFAL)(RAO),S(SRFAL> 
VERSET 
R1,2 

RO,VERST #SET UP VERIFY TO READ (NO BACKSPACE) 

PUSHAND 
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TAPE HANDLER PROGRAM 

MAINT STATE-REREAD 

0125020 

0125020 01 001612 130400 0A3311 CTSD 
0125022 01 001614 030440 043316 CTSD 

0125024 01 001616 004441 

0125025 01 001617 051220 „.„.,.. 

0125026 01 001620 055077 0125125 

0125027 

0125027 01 001621 162220 

0125030 01 001622 017400 007410 

0125032 01 001624 054153 0125205 

0125033 01 001625 051010 „„„.„.„ 

0125034 01 001626 055004 0125040 

0125035 01 001627 037040 060166 LAYOUT 

0125037 01 001631 053003 0125042 

0125040 

0125040 01 001632 137040 060165 LAYOUT 
0125042 

0125042 01 001634 103601 001437 TTYTBL 
0125044 

0125044 01 001636 073046 

0125045 01 001637 140013 

0125046 01 001640 004404 

0125047 01 001641 044013 

0125050 01 001642 003020 

0125051 01 001643 002025 014000 

0125053 01 001645 053132 0125205 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 

02 

03 

04 

05 

06 

07 

06 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

-001- 23 
24 

-001- 25 
26 
27 
28 
29 
30 
31 
32 



CHKVER 



IT THE SRFAL BIT IS SET THE BLOCK HAS FAILED THE CRC CHECK 2 MORE TIMES 



LL 

LL 

AN 

TBS 

BNC 



RO.MTCSV * SET W RO 

R2,MTCSV+N(SVLSTG00D) *GET LAST GOOO BLK NUMBER 
R 2'l ADJUST FOR POSITIONING 

N(SRFAL) (RAO), S (SRFAL) _„ 

RECOVOK # BLOCK HAS PASSED RECOVERY. 

BLOCK MUST BE EITHER RE-WRITTEN OR MOVED DEPENDING UPON THE OPERATION 
U PREFORMED AT THE POINT THE MAITENANCE STATES WERE REQUIRED. 

FLSRCV 

N(SRFAL)(RAO),S(SRFAL) 

R0,WRITST,0,MSK(4) * WAS A WRITE IP. „,„,,.. 

CONRET # ISSUE BACK SPACE AND 50 TO NEXT SUBSTATE. 



ZBS 

CIRM 

BC 



ZREAD 
CRECR 



A READ HAS FAILED. INITIATE BLOCK RECOVERY. 

TBS N(TAPNO)(RA0),S(TAPN0) 

RNC ZREAD 

A1S MMT1FR * ADD PEG COUNT FOR TDC1 FATAL READ. 

B CRECR 

A1S MMTOFR # ADD PEG COUNT FOR TDCO FATAL READ. 

SPELL R8,(F,A,T,L,R,E,A,D) 

LI R8,fatlrEad 

CALL PTREC 

BSAI PXTREC 

L RO,N(STATEFLG)(RAO) 

AN R0,4 

ST RO,N(STATEFLG)(RAO) 

STM R1,N(VERTRK)(RAD),M(VERTRK> 0FORCE VERIFY ON TRACK ZERO 



# SUBROUTINE PTREC IS IN PROGRAM CTAPH 

# SET UP FOR READ RECOVERY ROUTINES 



*SET POSITION REQUEST FOR BAD BLK MINUS 1 



I 



CONRET 



0125054 



0125054 01 001646 103601 001576 TTYTBL 
0125056 

0125056 01 001650 073046 

0125057 

0125057 01 001651 137040 043332 CTSD 

0125061 01 001653 003010 

0125062 01 001654 062220 

0125063 01 001655 037000 123725 0123725 



37 
38 
39 

-001- 40 
41 

-001- 42 



36 REWRITE 



A RE-WRITE WILL NOW BE ATTEMPTED TO RECOVER THE FATAL CRC FAILURE. 
K THE TAPE SHOULD BE POSITIONED TO WRITE THE BLOCK OVER. 
SPELL R8,(W,2,X> 



LI 

CALL 

BSAI 

43 READWRITE 

44 A1S 

45 LN 

46 ZBS 

47 BL 



tt SUBROUTINE PTREC IS IN PROGRAM CTAPH 



R8,WX2X 

PTREC 

PXTREC 

TCBADR+N(STATEFLG) # GO TO NEXT MAINT SUBSTATE 

R0,WRITST 

N(SRFAL)(RAO),S(SRFAL) # CLEAR CRC FAIL FLAG. 

ZRPUSH 
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TAPE HANDLER PROGRAM 
MAINT STATE-REREAD 
0125065 



E02 



0:43:06 



2/06/81 **** 



CTAPH 



W77D 



01 CHKRESULTS 

02 It A RE-WRITE HAS BEEN INITIATED AND TERMINATED. CHECK IF THE RESULTS 

03 n OF THE READ AFTER WRITE INDICATE SUCCESS OF THE RE-WRITE. 



0125065 01 001657 130400 043311 CTSD 
0125067 01 001661 051220 

0125070 01 001662 055051 0125141 

0125071 01 001663 017400 007410 

0125073 01 001665 054011 0125104 

0125074 01 001666 044420 

0125075 

0125075 01 001667 073026 

0125076 01 001670 103601 000043 TTYTBL 
0125100 

0121)100 01 001672 073046 

0125101 01 001673 130400 043311 CTSD 
0125103 01 001675 053036 0125141 



06 
07 
08 
09 
10 
11 



-001- 14 
15 

-001- 16 
17 

-001- 18 
19 
20 



LL 


RO,MTCSV 


TBS 


N(SRFAL)(RAO),S(SR 


BNC 


SWITAPE 


CIRM 


R0,WRITST,0,MSK<4) 


BC 


PRMERR 


ST 


R1,0(RA1> 


CALL 


COMTU 


BSAI 


CXOMTU 


SPELL 


R8,<S,W) 


LI 


R8,SXW 


CALL 


PTREC 


BSAI 


PXTREC 


LL 


RO,MTCSV 


B 


SWITAPE 



tt NO ERROR 

#WAS ERROR IN WRITE STATE 

UNO FURTHER RECOVERY POSSIBLE. 

0CLEAR PTP R1 NEVER > 15 

^COMPLIMENT TAPE NUMBER AND PREPARE TO SWITCH 

UNITS. 
H SUBROUTINE COMTU IS IN PROGRAM CTAPH 



^OUTPUT RECOVERY ATTEMPT. 

* SUBROUTINE PTREC IS IN PROGRAM CTAPH 



0125104 



0125104 


01 


0125105 


01 


0125106 


01 


0125107 


01 


0125110 




0125110 


01 


0125111 


01 


0125112 


01 


0125114 


01 


0125115 




0125115 


01 


0125117 




0125117 




0125117 


01 


0125121 


01 



001676 124076 

001677 054016 0125123 

001700 026076 

001701 003021 

001702 151010 

001703 055004 0125115 

001704 037040 060170 LAYOUT 

001706 053003 0125117 

001707 137040 060167 LAYOUT 



001711 137020 127060 0127060 
001713 137000 123411 0123411 



-001- 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



PRMERR 

# A PERMINENT WRITE ERROR EXISTS ON THIS TAPE. PLACE UNIT INTO 

ft READ ONLY STATE 



SETSTAT 



ZFTWRT 
SETST 



TBN 
BC 
SBN 
LN 

r 

TBS 
BNC 
A1S 
B 

A1S 



CALL 

BSA 

BL 



R3,S(RED0N) 
SCORPO 
R3,S(RED0N) 
R1,FATLWRIT 



tt CHECK IF TAPE IS ALREADY IN READ ONLY. 
ft INDICATE ANOTHER READ ERROR HAS OCCURED. 
H PLACE TAPE IN READ ONLY STATE. 



N(TAPNOXRAO),S<TAPNO) 
ZFTWRT 



MMT1FW 
SETST 

MMTOFW 

PRNTER 
PRNTER 
CLOSESTATE 



# FATAL WRITE PEG COUNT. TDC1 



* FATAL WRITE PEG COUNT. TDCO 



0125123 



0125123 01 001715 103020 



45 SCORPO 

46 It THE TAPE BEING USED AT THIS TIME HAS BEEN REMOVED FROM THE WRITE 

47 n ALLOWED STATE AND HAS NOW ENCOUNTERED A PERM READ ERROR WHICH HAS FAILED 

48 tt A RECOVERY ATTEMPT, JUST GIVE MAJOR ALARM PO AND ABORT. 

49 LN R1,FATLREAD 
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TAPE HANDLER PROGRAM 
MAINT STATE-REREAD 

0125124 01 001716 053764 0125110 

0125125 

0125125 01 001717 104077 

0125126 01 001720 017062 003777 

0125130 01 001722 055677 0125027 

0125131 01 001723 004461 

0125132 01 001724 051010 „„„..„ 

0125133 01 001725 055004 0125137 

0125134 01 001726 037040 060164 LAYOUT 

0125136 01 001730 053003 0125141 

0125137 

0125137 01 001731 137040 060163 LAYOUT 

0125141 

0125141 01 001733 117400 007404 

0125143 01 001735 055071 0125234 

0125144 01 001736 003011 

0125145 01 001737 044013 «,„,._, 

0125146 01 001740 053622 0124770 

0125147 

0125147 01 001741 103641 003415 
0125151 

0125151 01 001743 073023 „.,.„, 

0125152 01 001744 155604 0124756 

0125153 01 001745 061240 

0125154 

0125154 
0125154 

0125154 01 001746 173022 

0125155 01 001747 000171 

0125156 

0125156 01 001750 137040 043332 CTSD 
0125160 01 001752 037000 123722 0123722 



01 


B 


SETSTAT 


05 RECOVOK 

06 SN 


R3,1 


08 
09 
10 


CRM 
BNC 
AN 


R3,R2,M(PTP> 

fl.SRCV 

R3,1 


12 
13 
14 


TBS 
BNC 
A1S 


N(TAPNO)(RAO),S< 

ZTRNS 

MMT1TE 


16 

17 ZTRNS 

18 


B 
A1S 


SWITAPE 
MMTOTE 


20 SMITAPE 

21 CIRM 

22 BNC 


RO,READST,0,X(F) 
RESRTN 


26 
27 
28 


LN 
ST 
B 


RO,<RES-CHK) 

RO,N(STATEFLG)(R 

XBCKUP 



0:43:06 2/06/81 **** 
CTAPH W77D 



U ADJUST PTP FOR COMPARISON AGAINST LAST GOOD 
BLK. NO. 

#BLK NUMBERS DO NOT AGREE. FALSE RECOVERY 



n TDC ZERO ENCOUNTERED A TRANSIENT ERROR. 
K PEG COUNT FOR TRANSIENT ERROR RECOVERY. TDC 
1 



# PEG COUNT FOR TRANSIENT ERROR RECOVERY. TDC 
0. 

It CHECK IF READ MAS IP. 
K SET UP ORIGINAL TCB. 



32 REDO 

34 LI 

35 CALL 
-001- 36 BSAI 

37 BNC 

38 SBS 

39 ADDTIM 
BGNTIM 
CALL 



R10,TRB 

ORDEXCNT 

ordexCnt 

XRMVPO 

N(STPST)(RAO),S(STPST> 



K PREPARE TO READ A BLOCK ON TRACK ZERO. 
It SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 



40 
-001- 41 
-002- 42 
-001- 43 

44 ADSET 

45 

46 



BSAI 
DATA 

A1S 

BL 



SEC=3 
TIMOUT 
TXIMOUT 
121 

N(STATEFLG)+TCBADR 
SETIME 



0ALLOM FOR BOT CONDITIONS 

H SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
n TIMOUT+1 

# INCREMENT FLAG AND REQUEST TIME STATE. 



COMMON TAPE HANDLER 

0:43:06 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH 



PR-1C957-50 
ISSUE 08 PAGE 



73 









602 









TAPE HANDLER PROGRAM 
MAINT STATE-REREAD 

0125162 01 GETBADBLK 

0125162 01 00175* 151345 03 TBS 

0125163 01 001755 054721 0125104 04 BC 

0125164 01 001756 051220 06 

07 

0125165 01 001757 054717 0125104 08 

0125166 01 001760 030440 043316 CTSD 09 

0125170 01 001762 004441 10 

0125171 01 001763 017062 003777 11 

0125173 01 001765 055711 0125104 12 

0125174 01 001766 040106 13 

0125175 01 001767 017513 001400 14 

0125177 01 001771 054705 0125104 15 

0125200 01 001772 002105 014000 16 

0125202 17 

0125202 01 001774 073026 -001- 18 

0125203 19 

0125203 01 001775 173024 -001- 20 

0125204 01 001776 155700 0125104 21 

0125205 22 CONRET 

23 # 
24 

0125205 01 001777 103020 25 

0125206 01 002000 002025 017777 26 STM 
0125210 01 002002 002046 003777 27 STM 
0125212 28 ADDPOS 
0125212 01 002004 137040 043332 CTSD 2? A1S 
0125214 01 002006 037000 123641 0123641 30 BL 



0:43:06 



CTAPH 



2/06/81 **** 
W77D 






N(ERNA)(RAO),S(ERNA) (MS SWITCH RECOVERY ALLOWED 
PRMERR UNO 

TBS N(SRFAL)(RAO>,S(SRFAL> * CHECK IF REFERENCE BLOCK WAS READ OK 
n THE REFERENCE BLOCK IS THE TRACK BLK JUST BEFORE THE BAD BLOCK. 

BC PRMERR H CAN NOT RECOVER THIS BLOCK. 

LL R2,MTCSV+N(SVLSTG0.,D) 

AN R2/1 0ADJUST LAST GOOD BLK NO. FOR COMPARE. 

CRM R3,R2,M(PTP) #WAS TRK ZERO POSITION SUCCESSFUL 

BNC PRMERR #N0 

L R4,N(TRACKKRA0> 

CIRM R4,0,S(TRACK),M(TRACK)/CS(TRACK) # CHECK IF TRACK ZERO. 

BC PRMERR # CAN NOT RECOVER TRACK ZERO. 

STM R4,N(VERTRK)(RA0),M(VERTRK> #RE-ESTABLISH VERIFY TRACK 

CALL COMTU ^COMPLIMENT TAPE NUMBER IN TCB 

BSAI CXOMTU # SUBROUTINE COMTU IS IN PROGRAM CTAPH 

CALL STATSET 

BSAI SXTATSET K SUBROUTINE STATSET IS IN PROGRAM CTAPH 

BNC PRMERR 

THA DUPLICATE TAPE MUST NOW BE POSITIONED FOR THE RECOVERY 



n OF THE BAD BLOCK 



R1 

R1,N(L0GBLKXRA0),M(VERTRK>+M(L0GBLK> (KCLEAR LOGBLK FOR POSITION 

R2,N(PHYBLK)(RA0),M(PHYBLK) # PREPARE TO POSITION BAD BLOCK 

TCBADR+N(STATEFLG) 

POSITIONLOD It POSITION MATE UNIT 



0125216 

0125216 01 

0125217 01 
0125220 01 



002010 151220 

002011 054704 0125123 

002012 062240 



0125221 01 002013 037000 123712 0123712 



34 REDMATE 

35 # THE BAD BLOCK WILL NOW BE READ OFF MATE TAPE 
3* TBS N(SRFAL)(RAO),S(SRFAL) #IS A CRC FAILURE PRESENT? 

37 BC_ SCORPO m _ 0CHECK IF PREVIOUS OPERATION WAS SUCCESSFUL 

38 



40 



ZBS N(STPST)(RAO),S(STPST) 
BL MATERED 






0125223 

0125223 01 002015 151220 -- 

0125224 01 002016 054660 -- 
0125225 

0125225 01 002017 073026 « 



0125104 



-OOV 



44 RERITE 

45 U REWRITE ORIGINAL TAPE 

46 TBS N(SRFALXRAO),S(SRFAL> #DIO PREVIOUS OPERATION SUCCEED? 

47 BC PRMERR 

48 CALL COMTU 

49 BSAI CXOMTU U SUBROUTINE COMTU IS IN PROGRAM CTAPH 
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TAPE HANDLER PROGRAM 
MAINT STATE-REREAD 
0125226 01 002020 153631 



0125057 



ML 



01 



B 



0125227 
0125227 

0125227 01 002021 171420 

0125230 01 002022 031000 125234 0125234 
0125232 01 002024 037000 125764 0125764 



03 GETCLNT 

04 BEGIN 
-002- 05 HA 

06 UAL 

07 BL 



0:43:06 2/06/81 **** 
CTAPH W77D 



READMRITE 



R0,RESRTN,RA0 
FUNRTN 



M SET MP RETURN FOR CLIENT 



0125234 

0125234 01 002026 131020 043317 CTSD 

0125236 01 002030 003601 000302 TTYTBL 
0125240 

0125240 01 002032 073046 

0125241 

0125241 01 002033 162220 

0125242 01 002034 031400 043311 CTSD 

0125244 01 002036 044012 

0125245 01 002037 040401 

0125246 01 002040 044013 

0125247 01 002041 062200 

0125250 01 002042 040404 

0125251 01 002043 044005 

0125252 01 002044 040402 

0125253 01 002045 044006 

0125254 01 002046 040405 

0125255 01 002047 044017 

0125256 01 002050 040643 - 

0125257 01 002051 044255 

0125260 01 002052 040013 

0125261 01 002053 017400 007407 

0125263 01 C02055 054011 0125274 

0125264 01 002056 017650 003407 

0125266 01 002060 055006 0125274 

0125267 

0125267 01 002061 073043 „.„,„„ 

0125270 01 002062 155466 0124756 

0125271 

0125271 

0125271 01 002063 073022 

0125272 01 002064 000005 

0125273 01 002065 144014 

0125274 

0125274 01 002066 162120 

0125275 01 002067 037000 001062 CBLM 



11 RESRTN 

12 LAL 

13 SPELL 
-001- 14 LI 

15 CALL 

-001- 16 BSAI 

17 RSTNOPO 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
2? 
30 
31 
32 
33 
34 
35 
36 

38 
-001- 39 

40 

41 
-001- 42 
-002- 43 
-001- 44 

45 



ZBS 

LAL 

ST 

L 

ST 

ZBS 

L 

ST 

L 

ST 

L 

ST 

L 

ST 

L 

CIRM 

BC 

CIRM 

BNC 

CALL 

BSAI 

BNC 

BGNTIM 

CALL 

BSAI 

DATA 

ST 



46 NOISSUE 

47 ZBS 

48 BL 



R1,TCBADR,RA0 

R8,(C,0,M,P,L> 

R8,CX0MPL 

PTREC 

PXTREC 



(K SUBROUTINE PTREC IS IN PROGRAM CTAPH 



N(SRFAL)(RAO),S(SRFAL> 

R0,MTCSV,RA1 

RO/NCSTATEWRDXRAO) 

R0,N(SVFLG)(RA1) 

R0,N(STATEFLGXRA0> 

N(IOCMPXRAO),S(IOCMP> 

R0,N(SVINDX)(RA1) 

R0,N(LOGBLKXRA0) » RESTORE CLIENT INDEX 

R0,N(SVBASE)(RA1) 

R0,N(PHTBLK)(RA0) U RESTORE BASE BLOCK NO. 

R0,N(SVLSTG00DXRA1> 

R0,N(LSTG0ODXRA0) 

R10,N(SVCOMXRA1> 

n10,N(LSTC0MXRA0) 

RO,N(STATEFLG)(RAO) 

R0,VERST,0,MSK(4) 

NOISSUE 

R10,7,8,7 

NOISSUE 



# CHECK IF A READ WAS IP. 



M SEND INTERRUPTED COMMAND. 

K SUBROUTINE ORDEXC IS IN PROGRAM CTAPH 



ORDEXC 

OXRDEXC 

XRMVPO 

MSEC=IBG_1BUF 

TIMOUT 

TXIMOUT 

R0,N(TIMEKXRA0) 

N(MAINT)<RAO),S(MAINT) tf CLEAR MTC CONTROL BIT 
CTAPHRTN 



» SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 
U TIMOUT+1 
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TAPE HANDLER PROGRAM 
TAPE REPACK STATE. 
0125277 



-SPJL 



0:43:06 2/06/81 **** 



CTAPH 



W77D 



01 PACKTAPE 

02 * PERIODICALLY THE CARTRIDGE UNITS MUST BE PASSED THROUGH A PACKING 

03 It PROCESS WHICH RE-ALIGNS THE TAPE IN A FLAT HORIZONTAL PLANE. THIS IS 
0* * DONE BY FAST FORWARDING AND FAST REVERSING THE TAPE SO THAT BOTH ENDS 
05 * HAVE BEEN REACHED. SHARES MRFINIT STATE'S SUBSTATES. 



0125277 01 

0125301 01 

0125302 01 

0125303 01 

0125304 01 

0125305 01 

0125306 01 

0125307 01 

0125310 01 

0125311 01 



002071 131542 020006 TDATA 

002073 004157 

002074 041621 

002075 056001 

002076 153006 0125312 

002077 153017 0125324 

002100 153023 0125331 

002101 153024 0125333 

002102 153027 0125337 

002103 153031 0125342 



0125312 

0125312 

0125312 01 002104 137020 127254 0127254 

0125314 

0125314 01 002106 103641 040007 

0125316 

0125316 01 002110 142626 

0125317 

0125317 01 002111 073032 

0125320 01 002112 136140 125316 0125316 
0125322 01 002114 037000 124547 0124547 



0125324 

0125324 01 002116 103130 

0125325 01 002117 003641 002415 

0125327 

0125327 01 002121 137000 124657 0124657 



-001- 



-001- 



09 


LAL 


R6,TAPETBL,RA1 


10 


SN 


R6,1 


11 


LA 


R9,1(RA1) 


12 


BPAX 


R1 


13 


B 


STANDINT 


14 


8 


FFTUS 


15 


B 


EOTCHK 


16 


3 


BRINGBCK 


17 


B 


BTLOK 


18 


B 


DONPO 


22 STANDINT 




23 


CALL 


CLRSTAT 


24 


BSA 


CLRSTAT 


25 INTCOC 






26 


LI 


R10,INIT 


27 COMINIT 




28 


LX 


R9,R6(RA1) 


29 


CALL 


ORDEXCAB 


30 


BSAI 


ordexCab 


31 


BX 


R6, COMINIT 


32 


BL 


ADBKTM 


37 FFTUS 






38 


LN 


R5,S(E0T> 


39 


LI 


R10,TFF 


41 REW 






42 


BL 


REWINDU 



* SET UP BX CONSTANT AND TAPE ENABLE ADDRESS 



K ZERO OUT STATUS BLOCK. 



# SEND INITS TO TDCS 

# SUBROUTINE ORDEXCAB IS IN PROGRAM CTAPH 

H WAIT FOR UNITS TO GO IDLE BEFORE NEXT 
SUBSTATE. 



* PREPARE FAST FORWARD ORDER IF NOT ALREADY 
AT EOT. 



COMMON TAPE HANDLER 

0:43:06 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH 



PR-1C957-50 
ISSUE 08 PAGE 



76 



TAPE HANDLER PROGRAM 
TAPE REPACK STATE. 

0125331 

0125331 01 002123 103130 

0125332 01 002124 053006 



0125340 



C03 



01 EOTCHK 

02 LN 

03 B 



R5,S(E0T) 

BPS 



0:43:06 2/06/81 **** 
CTAPH W77D 

n LOOK FOR ALL UNITS INSERVICE TO REACH EOT. 



0125333 

0125333 01 002125 103136 

0125334 01 002126 003641 004415 
0125336 01 002130 053771 



0125327 



07 BRINGBCK 

08 LN 

09 LI 

10 B 



R5,S(B0T> 

R10,TFR 

REW 



0125337 01 002131 103136 

0125340 01 002132 137000 124674 0124674 



14 BTLOK 
15 

16 BPS 

17 BL 



LN 



R5,S(B0T> 
BOTPOS 



It NOW SCAN FOR BOT BEFORE IDLEING OUT KB. 



0125342 
0125342 



0125342 01 002134 173053 

0125343 01 002135 100200 

0125344 01 002136 021040 

0125345 01 002137 021042 

0125346 01 002140 014023 TTYTBL 

0125347 01 002141 000242 TTUBL 

0125350 01 002142 000302 137000 TTYTBL 

0125351 01 002143 137000 123411 0123411 



21 DONPO 

22 » OUTPUT THAT TAPES HAVE BEEN JEPACEO. 

23 PRINT fmt=(wrd(i,n,i,t),wrd<t,a,p,e>,wrdcc,o,m,p,l>> 



-001- 25 
-001- 26 
-002- 27 
-002- 28 
-002- 29 
-002- 30 
-002- 31 
-002- 32 
-002- 33 
-001- 34 

36 



MESSAGE PROTOTYPE 

"SsAI PXMRY TAPE C ° MPL # SUBROUTINE PMRY IS IN PROGRAM TTYAPP 
VFD 1,0 1,0 3,0 1,0 1,1 1,0 2,0 1,0 3,0 

VFD 4'TTYO 4;TTY0_ 4,TTY0_ 4,TTY0_WR0 

VFO 4,TTY0" 4,TTY0_ 4,TTY0_ 4,TTY0_ 

VFD 5,3 11, KNIT 

VFD 5, 11,TXAPE 

NOTE THE 1 VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS 
BL CLOSESTATE 
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D03 



TAPE HANDLER PROGRAM 

TAPE INTERRUPT LEVEL PROGRAMING 



0:43:06 



2/06/81 **** 






0125353 



0125353 



01 


1 


02 


n 


03 


tt 


04 


n 


05 


tt 


06 


tt 


07 


tt 


08 




09 


tt 


10 


tt 


11 


it 


12 


tt 


13 


it 


14 


n 


15 


It 


16 


It 


17 


It 


18 


tt 


19 


It 


20 


H 


21 


It 


22 


tt 


23 


It 


24 


It 


25 


It 


26 


It 


27 


tt 


28 


It 


29 


tt 


30 


tt 


31 




32 


tt 


33 


tt 


34 


tt 


35 


tt 


36 


tt 


37 


tt 


38 


it 



CTAPH 



W770 



THIS PORTION OF THE TAPE HANDLER IS THE INTERRUPT LEVEL PROGRAM. 
ITS ENTRY POINT CAN BE ACSESSEO EITHER ON A TIMED OR A 
DEMAND BASIS. THERE ARE TWO ENTRY POINTS, TAPINTE AND TAPINTO 
FOR EVEN AND ODD CONTROLLERS. AT THE ENTRY POINTS A CHECK IS 
MADE TO SEE IF THERE IS ANY WORK TO BE DONE. IF THERE IS WORK TO 
BE DONE IT IS DETERMINED IF THE WORK IS A READ OPERATION OR 
WRITE OPERATION. AND THAT REQUEST IS BRANCHED TO. 

ON A READ OPERATION THE STATUS OF THE UNIT IS CHECKED. IF AN 

ERROR IS FOUND A MESSAGE IS PRINTED AND THE ROUTINE IS EXITED. 

IF NORMAL THE BUFFER IS PREPARED FOR UNLOADING BY SENDING THE 

"BSUNLOD" 10 ORDER TO THE TDC AND THE OFF-LINE BUFFER COUNTER 

IS CLEARED BY SENDING THE "BCLROCN" 10 ORDER. THEN THE BUFFER 

IS UNLOADED WITH THE "SD" 10 ORDER. A COUNT OF THE BUFFERS IS 

KEPT IN THE TCB WORD "BUFCT". WHEN THE BUFFER IS UNLOADED INTO 

R11 IT IS STORED IN 10 BUF. IF IT HAPPENS TO BE THE LAST BUFFER 

IN THE BLOCK A CRC CHECKED IS DONE, THE "DEOF" BIT IS CHECKED TO 

SEE IF A REWIND FOR NEXT TRACK IS NEEDED, A RANGE CHECK IS DONE, 

AND A SEQUENCE CHECK IS DONE. THEN THE CLIENT IS GIVEN CONTROL 

AT THE ADDRESS SPECIFIED IN THE READ COMMAND. IF THIS IS NOT 

THE LAST BLOCK OR IS A RETURN FROM CLIENT THEN CONTROL IS GIVEN 

BACK TO BLMMA. WHEN THE CLIENT GETS CONTROL IT MUST MOVE THE 

DATA TO ITS DESIRED LOCATION. IF BECAUSE OF REAL TIME CONSIDERATIONS 

THE ENTIRE BLOCK CANNOT BE MOVED AT ONCE, A RETURN OF R0=1 

CAN BE GIVEN TO CTAPH. ON THE NEXT INTERRUPT IF THERE IS 

NO WORK SUCH AS IN THE TIMED INTERRUPT ARRANGEMENT THEN THE 

CLIENT WILL BE GIVEN CONTROL AGAIN UNTIL A RETURN OF R0=0 

IS RECIEVED BY CTAPH. WHEN THE CLIENT COMES BACK WITH R0=1 

BIT "5MRTN" IS SET AS A FLAG TO THE NEXT INTERRUPT. IF 

THERE IS NO WORK TO BE DONE THE CLIENT IS GIVEN SOME MORE TIME. 

IF THE WRITE STATE IS IN THE TCB, A WRITE OPERATION IS DONE. 
FIRST BY BASE-LEVEL CODE WHICH WRITES THE FIRST 2 BUFFERS. 
THE BUFFER UNIT IS INITIALIZED BY SENDING A "BINIT" 10 ORDER. 
THEN THE BUFFER IS LOADED FROM DATA PRESENT IN 10 BUF. THE 
CURRENT BUFFER IS AGAIN STORED IN "BUFCT"'. WHEN A BLOCK HAS 
BEEN WRITTEN THE WRITE IS STOPPED WITH THE "TWSTP" ORDER 
INTERRUPT CONTROL IS RETURNED TO BLMMA. 









0125353 

0125353 01 002145 130462 020004 TDATA 

0125355 01 002147 003140 

0125356 01 002150 031622 020005 TDATA 

0125360 01 002152 053006 0125366 

0125361 

0125361 01 002153 103141 



42 # DATA TO ITS DESIRED LOCATION IF BECAUSE OF REAL TIME CONSIDERATIONS 

43 TAPINTE 

44 LL R3,TAPEQUE 

45 ZR R6 

46 LAL R9,TUENABL-2,RA1 

47 B TAPINT 

48 TAPINTO 

49 LN R6,1 
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0:43:06 2/06/81 **** 




TAPE HANDLER PROGRAM 




CTAPH W77D 






TAPE INTERRUPT LEVEL PROGRAMING 










0125362 01 002154 030462 020005 TOATA 


01 LL 


R3,TAPE0U0 * SET UP RA TO ODD INTERRUPT EQUIP WORD 






0125364 01 002156 031622 020006 TDATA 


02 LAL 


R9,TUENABL-1/RA1 






0125366 

0125366 01 002160 130622 020007 TDATA 

0125370 01 002162 072547 

0125371 

0125371 01 002163 037020 110273 CSYSUB 


03 TAPINT 

04 LL 

05 HN 

06 CALL 


R9 TUENABL 

r«'7 # SAVE ODD EVEN INT. INDICATOR 

UNLODIOC * GET PREINTERRUPT STATE OF CHAN 






-001- 07 BSA 


UNLODIOC 






0125373 01 002165 172405 


08 HN 

09 HN 


Rl'6 # SAVE PERTINENT INFO. 

R2 

R10,BSTAT # PREPARE TO INTERROGATE BUFFER UNIT 

R9,TCBADR,RA0 






0125375 01 002167 003040 

0125376 01 002170 003641 000013 


10 ZR 

11 LI 






0125400 01 002172 031220 043317 CTSD 


12 LAL 






0125402 

0125402 01 002174 103045 


13 KEPSND 

14 LN 

15 TAPEHL OW 
-001- 16 NOTE 

19 CPATCH BGNP 


R2,5 *TIME CON. 

************* THE FIRST ADDRESS OVERWRITTEN IS 002175 ********** 

0(611) * 12274 






0125403 01 002175 037000 112243 0112243 


-001- 20 BL 
-001- 21 NOTE 
-001- 22 NOTE 


XXX576 

CPATCH 'CSECT* 

***************** PATCH AREA BEGINS AT 000611 **************** 






0112243 


-001- 25 XXX576 PATCHAREA 






0112243 02 000611 136060 125411 0125411 


26 BX 

27 TBN 


R3/SE0RD 

R 6,0 * EVEN OR ODD INTERRUPT? 






0112246 02 000614 050000 125620 0125620 


28 BCL 

29 OEPATCH NOTE 


ENDI 

REPLACE "BCL" WITH "BC". 






0112250 

0112250 02 000616 037000 125405 0125405 


30 ENDP 
-001- 31 BL 
-001- 32 NOTE 
-001- 33 NOTE 


n 12274 

vyyc7g 

************ LAST PATCH ADDRESS USED IS 000617 *************** 
***** NUMBER OF PATCH WORDS USED IS 7 (DECIMAL) ******** 






0125405 

0125405 01 002177 151376 


-001- 36 XXX578 ^CONTINUE ) /S (5MRTN) * NO WORK FOR THE TAPE HANDLER, DOES 

CLIENT WANT SOME TIME ? 






0125406 


39 EOW 
-001- 40 NOTE 


» 12274 
*************** THE LAST ADDRESS OVERWRITTEN IS 002177 ********** 






0125406 01 002200 062376 


43 ZBS 

44 TAPEHL OW 


N(5MRTN)(RA0),S(5MRTN) 

0(2201) * 12274 








-001- 45 NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002201 ********** 

PR-1C957-50 


• 
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TAPE HANDLER PROGRAM 

TAPE INTERRUPT LEVEL PROGRAMING 

0125407 01 002201 054346 0125755 

0125410 



0125410 01 002202 053210 0125620 

0125411 

0125411 01 002203 141622 

0125412 01 002204 003101 

0125413 

0125413 01 002205 123440 

0125414 01 002206 136040 125414 0125414 

0125416 01 002210 023500 

0125417 01 002211 054004 0125423 

0125420 01 002212 023520 

0125421 01 002213 054006 0125427 

0125422 01 002214 053003 0125425 



0125423 

0125423 01 002215 124267 

0125424 01 002216 054011 0125435 

0125425 

0125425 01 002217 104542 

0125426 01 002220 053754 0125402 

0125427 

0125427 01 002221 124266 

0125430 01 002222 003025 

0125431 01 002223 055774 0125425 

0125432 01 002224 036100 125413 0125413 
0125434 01 002226 053771 0125425 






0125435 

0125435 01 002227 151347 

0125436 01 002230 055007 0125445 

0125437 01 002231 030400 043107 CTSD 

0125441 01 002233 026000 

0125442 01 002234 034400 043107 CTSD 

0125444 01 002236 053154 0125620 

0125445 



01 

02 

-001- 03 



0:43:06 2/06/81 **** 
CTAPH W77D 

BC RTNCLNT 

EOW H 12274 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002201 ********** 



06 

07 SEORD 

08 

09 



LA 
LN 



11 SENDSTAT 

12 SMIO 

13 BX 

14 TIO 

15 BC 

16 TMIO 

17 BC 

18 B 



22 TESTSTAT 



TBN 
BC 



ENDI 

R9,2(RA1> 
R4,1 



R2,* 

TESTSTAT 

INTMTC 
NEXTRY 



R11,S(BR> 
RESOLVE 



* DONE WITH TAPE SCAN 

K GET ENABLE ADDRESS 

* BX CONSTANT FOR PE CHECK AND NORESPONSE 
TEST 



U TIME FOR RESPONSE 



U CHECK IF THIS TAPE SENT INTERRUPT 



23 
24 

25 NEXTRY 

26 AN R6,2 

27 B KEPSND 

28 INTMTC 

29 # A MTC. RESPONSE FROM UNIT CAN RESULT IF THE UNIT ENCOUNTERS A 

30 * PARITY ERROR OR THE BUFFERS HAVE NOT BEEN SERVICED PROPERLY. 

TBN R11,S(PPE) U HAS A PARITY ERROR IN TRANS OCCURRED 

32 LN R1, ORDER 

33 BNC NEXTRY 

34 BX R4, SENDSTAT 

35 B NEXTRY U CONTINUE POLL OF UNITS 



42 RESOLVE 

43 

44 

45 

46 

47 

46 

49 NORM 



TBS N(DIAGBITS)(RAO),S(DIAGBITS) IMS DIAG IP 

BNC NORM 

LL R0,PAGSCR+5 

SBN R0,0 

STL R0,PAGSCR+5 

B ENDI 
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0:43:06 2/06/81 **** 




TAPE HANDLER PROGRAM 














TAPE INTERRUPT LEVEL PROGRAMING 








CTAPH W77D 








01 TAPEHL 


OW 


0<2237),0(2240) 


* 13537 




. 


t 


-001- 02 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 00223/ ********** 






W01 25445 01 002237 173022 


05 


MAI 


TXIMOUT 








0125*46 01 002240 000012 

0125447 


06 

07 

-001- 08 


DATA 

EOW 

NOTE 


10 

*************** THE 


LAST ADDRESS OVERWRITTEN IS 002240 ********** 






■ 


11 TAPEHL 


OW 


0(2241) 


# 13001 








-001- 12 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002241 ********** 






0125447 01 002241 140050 


15 


L 


R2,N(TAPN0)(RA0> 








0125450 01 002242 017046 000003 


16 


CRM 


R2,R6,M(TAPN0) 








0125452 01 002244 055753 0125425 


17 


BNC 


NEXTRY 








0125453 01 002245 044014 

0125454 


18 

19 

-001- 20 


ST 

EOW 

NOTE 


RO„N(TIMEK)(RAO) 
*************** THE 


U 13001 

LAST ADDRESS OVERWRITTEN IS 002245 ********** 








23 


HN 


RA1,RA1 










24 


HN 


RA1+1,RA1+1 








0125456 

0125456 01 002250 073024 


25 
-001- 26 


CALL 
BSAI 


STATSET 
SXTATSET 


* SUBROUTINE STATSET IS IN PROGRAM CTAPH 






0125457 01 002251 172356 


27 


GN 


RA1,RA1 










28 

29 H TEST 


GN 
IF TU 


RA1+1,RA1+1 
IS IN SERVICE 








0125461 01 002253 055744 0125425 

0125462 01 002254 024272 


30 

31 


BNC 
TBN 


NEXTRY 
R11,S(L0DST) 


* TEST IF UNIT IS WRITING (LOAD STATE 
ACTIVE). 






0125463 01 002255 054307 0125772 

0125464 01 002256 040051 


33 

34 


BC 
L 


WRITEINT 
R2,N(BUFCT)(RA0) 


# 6ET BUFFER COUNT. 






0125465 01 002257 010452 

0125466 01 002260 003445 001400 MASACS 


35 
36 


RLN 
CI 


R2,6 
R2,LASTBUF 


n CHECK IF LAST BUFFER. 






0125470 C1 002262 055013 0125503 

0125471 01 002263 003641 002015 


37 

38 


BNC 
LI 


NODETTST 
R10,TSTAT 


# MUST DO DATA DETECT DROP OUT TEST. 








39 


SMIO 










0125474 01 002266 003065 


40 


LN 


R3,5 








0125475 01 002267 136060 125475 0125475 
0125477 01 002271 023500 


41 
43 


BX 
TIO 


R3,* 










44 


BNC 


CRCFAILPO 
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TAPE HANDLER PROGRAM 

TAPE INTERRUPT LEVEL PROGRAMING 



0125501 01 

0125502 01 
0125503 

0125503 01 

0125505 01 

0125506 01 

0125507 01 

0125511 01 

0125512 01 

0125513 01 

0125515 01 

0125516 01 

0125517 01 

0125521 01 

0125522 01 



0125523 01 
0125525 01 
0125527 01 

0125530 01 

0125531 01 

0125532 01 

0125533 01 

0125535 01 

0125536 01 
0125540 
0125540 01 

0125542 01 
0125543 

0125543 01 

0125544 01 

0125545 01 
0125547 01 
0125550 01 
0125551 
0125551 
0125553 
0125553 01 

0125555 01 

0125556 01 

0125557 01 

0125561 01 

0125562 01 

0125563 01 



002273 024273 

002274 054352 0126054 

002275 103641 044013 
002277 023440 

002300 003065 

002301 136060 125507 0125507 

002303 023500 

002304 055316 0126030 

002305 003641 120013 
002307 023440 

002310 003065 

002311 136060 125517 0125517 

002313 023500 

002314 055306 0126030 



002315 003641 100007 
002317 037040 043330 CTSD 

002321 051240 

002322 055034 0125564 

002323 014042 

002324 054011 0125543 

002325 003445 001400 MASACS 

002327 055053 0125610 

002330 003461 000116 

002332 136060 125540 0125540 

002334 053073 0125635 

002335 123440 

002336 003065 

002337 136060 125545 0125545 

002341 023500 

002342 055260 0126030 



01 002343 037020 126570 0126570 H 



002345 103641 120013 
002347 023440 

002350 003065 

002351 136060 125557 0125557 

002353 023500 

002354 055246 0126030 

002355 053025 0125610 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
1? 
20 

11 
23 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
001- 39 
40 
41 
42 
43 
44 
45 
46 
47 



n IT DATA DETECT STILL UP BLOCK IS TOO LONG. 



TBN 
BC 
NODETTST 
LI 

SMIO 
LN 
BX 
TIO 
BNC 
LI 

SMIO 
LN 
BX 
TIO 
BNC 



R11,S(DDT) 
CRCFAILPO 

R10,BSUNLD0N 

R3,5 
R3,* 

INTRMV 
R10,BCLR0CN 

R3,5 
R3,* 

INTRMV 



* PREPARE THE UNLOAD STATE 



§ CLEAR THE OFF-LINE COUNTER 



I THIS IS THE POINT FOR THE INTERRUPT PROGRAM RESPONSIBLE 

# FOR ADMINISTRATING TO A TDC WHICH INDICATES ITS TAPE UNIT IS IN THE 

* READ STATE. RAO MUST CONTAIN THE ADDRESS OF THE TCB. TAPE NUMBER IN R1 . 



MYADR 



GETADR 



NOUPITI 



LI 

A1S 

TBS 

BNC 

TZ 

BC 

CI 

BNC 

LI 

BX 
B 

SMIO 
LN 
BX 
TIO 
BNC 
CALL 
BSA 
t 
LI 

SMIO 
LN 
BX 
TIO 
BNC 
B 



R10,SD H GET READY TO UNLOAD BUFFER 

TCBADR+tKBUFCT) » ADD TO BUFFER COUNT. 
N(STPST)(RAO),S(STPST) * CHECK IF UNLOAD IS REWIRED. 



KEEPDATA 

R2 

GETADR 

R2,LASTBUF 

ENDINT 

R3,78 

R3, MYADR 
LASTBUFFER 



R3,5 
R3,* 

INTRMV 

UPDATSTAT 

UPDATSTAT 

R10,BCLR0CN 

R3,5 
R3,* 

INTRMV 
ENDINT 



U CAN IO_BUF BE OVERWRITTEN WITH NEW DATA? 
U CHECK IF THIS IS THE FIRST BUFFER. 



» TIME FOR CRC TO GO STABLE. 



n STORE BLOCK ADDRESS AWAY 



0CLEAR THE OFF-LINE COUNTER 
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B04 




TAPE 


HANDLER PROGRAM 














0:43:06 2/06/81 **** 


TAPE 


INTERRUPT 


LEVEL PROGRAMING 












CTAPH W77D 














01 


n THIS 


IS A 


READ-STORE OPERATION 




0125564 


► 










02 


KEEPDATA 






0125564 


01 


002356 


103461 


000077 




03 




LI 


R3,WRDBUF-1 


M WORDS PER BUFFER. 


0125566 


01 


002360 


031400 


045265 LAYOUT 




04 




LAL 


RO,I 0BUF-1,RA1 


# SETUP RA FOR BUFFER STORAGE. 


0125570 


01 


002362 


043402 






05 




LAX 


R0,R?(RA1) 


# POINT TO CURRENT BUFFER WORD. 


0125571 












06 


RLODBX 








0125571 


01 


002363 


tBJOJJ 






07 




LN 


R1,10 


H 20 USEC BX CONSTANT 


0125572 


01 


002364 


023440 


_— .- 




08 




SMIO 




» SEND UNLOAD COMMAND. 


0125573 












09 


RTESTIT 






0125573 


01 


002365 


123500 






10 




TIO 






0125574 


01 


002366 


054004 


0125600 




11 




BC 


STORWRD 




0125575 


01 


002367 


036020 


125573 0125573 




12 




BX 


R1,RTESTIT 


# RETRY UNTIL TIMEOUT HAS OCCURED 


0125577 


01 


002371 


053231 


0126030 




13 




B 


INTRMV 




0125600 












15 


STORWRD 






0125600 


01 


002372 


145661 






16 




STA 


R11,1(RA1> 


n PLACE WORD INTO MEMORY BUFFER. 


0125601 


01 


002373 


036060 


125571 0125571 




17 




BX 


R3, RLODBX 


It KEEP GOING UNTIL WHOLE BUFFER IS DONE. 


0125603 












18 


LSTBUFCK 






0125603 


01 


002375 


103445 


001400 MAS ACS 




19 




CI 


R2,LASTBUF 


U ARE ALL BUFFERS UNLOADED FOR BLOCK. 


0125605 


01 


002377 


054030 


0125635 


-001- 


20 
21 
22 


TAPEHL 


BC 
OH 
NOTE 


LASTBUFFER 
0(2400) 
************* THE 


U 12274 
FIRST ADDRESS OVERWRITTEN IS 002400 ********** 


0125606 












25 




TAKEOUT 2 




0125606 


01 


002400 


006000 




-001- 


26 




LR 


0,0 




0125607 


01 


002401 


006000 




-001- 


27 




LR 


0,0 




0125610 












28 


ENDINT 








0125610 












29 




EOW 




U 12274 


* 










-001- 


30 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002401 ********** 


0125610 












33 


ENDINT 








0125610 


01 


002402 


103112 






34 




LN 


R4,10 


^TIMING CONSTANT 


0125611 


01 


002403 


003641 


020013 




35 




LI 


R10,BCLRBRF 


# ZERO OUT THE BR FLAG. 


0125613 


01 


002405 


023440 






36 




SMIO 






0125614 












37 


TWA IT 








0125614 


01 


002406 


136100 


125614 0125614 




38 




BX 


R4,TWAIT 




0125616 


01 


002410 


023500 






39 




TIO 






0125617 


01 


002411 


055211 


0126030 




40 




BNC 


INTRMV 




0125620 












41 


END I 








0125620 


01 


002412 


172005 






42 




GN 


R0,5 




0125621 


01 


002413 


072026 






43 




GN 


R1,i 




0125622 


01 


002414 


030622 


020007 TDATA 




44 




LL 


R9,Tl'ENABL 




0125624 












45 




CALL 


LODIOO 


U RESTOR 10 CHANNEL TO PREINTERRUPT STATE 


0125624 


01 


002416 


037020 


110311 CSYSUB 


-001- 


46 




BSA 


LODIOC 




0125626 


01 


002420 


172147 






47 




GN 


R6,7 




0125627 


01 


002421 


010557 






48 




RLN 


R6,1 


n EVEN OR ODD INT. INDICATOR 


0125630 


01 


002422 


056006 






49 




BPAX 


R6 
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TAPE HANDLER PROSRAH 

TAPE INTERRUPT LEVEL PROGRAMING 

0125631 01 002423 137000 147340 BLMMA 
0125633 01 002425 137000 147340 BLMMA 



0:43:06 2/06/81 **** 
CTAPH W770 






01 

02 



BL 
BL 



TAPEIRTN 
TAPOIRTN 



0125635 



0125635 01 
0125637 01 

0125640 01 

0125641 01 

0125643 01 

0125644 01 

0125645 01 

0125646 01 

0125647 01 

0125650 01 

0125651 01 

0125653 01 

0125654 01 

0125655 01 

0125656 01 

0125657 01 

0125661 01 

0125662 01 
0125663 

0125663 01 

0125665 01 

0125666 01 

0125667 01 



002427 103641 002015 

002431 003045 

002432 023440 

002433 136040 125641 0125641 

002435 044051 

002436 023500 

002437 055212 0126057 

002440 051367 

002441 054050 0125717 

002442 040072 

002443 030400 045266 LAYOUT 

002445 024015 

002446 055014 0125670 

002447 051365 

002450 054012 0125670 

002451 003641 000015 

002453 003105 

002454 023440 

002455 136100 125663 0125663 
002457 023500 

002460 055142 0126030 

002461 061200 



06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



LASTBUFFER 

# AT THIS POINT ALL BUFFERS FOR 

H THE CRC CAN BE CHECKED NOW TO 



STWAIT 



LI 

LN 

SMIO 

BX 

ST 

TIO 

BNC 

TBS 

BC 

L 

LL 

TBN 

BNC 

TBS 

BC 

LI 

LN 

SMIO 

BX 
TIO 
BNC 
SBS 



R10,TSTAT 
R2,5 

R2,* 
R2,N(BUFCT)(RA0) 



ONE BLOCK HAVE BEEN UNLOADED. 
ASSURE THAT THE BLOCK IS CORRECT. 

# STATUS START CODE DETERMINES CRC. 



* ASSUME R2=0 









CRCFAIL 

N(DIAGBITS)(RA0),S(DIAGBITS)+1 

JUSTFLG 

R3,N(STATEWRD)(RA0) * RETRIEVE STATE IN CONTROL. 

RO,I OBUF+N(EOF) 

RO,S?EOF) H TEST IF UNIT IS TO BE STOPPED. 

CRCLOOK 

N(SEEZ)<RAO),S(SEEZ) 

CRCLOOK 

R10 / TST0P 

R4,5 



R4, STWAIT 



# TIME FOR RESPONSE. 



INTRMV 
N(IOCMP)(RA0),S(I0CMP) 



0125670 

0125670 01 

0125671 01 

0125672 01 

0125674 01 

0125675 01 

0125676 01 

0125700 01 

0125701 01 
0125703 01 
0125705 



002462 151240 

002463 054026 0125717 

002464 030660 045266 LAYOUT 

002466 024276 — 

002467 055015 0125712 

002470 003641 040007 

002472 023440 

002473 037040 043332 CTSD 
002475 003401 000006 



35 CRCLOOK 

36 (K CRC IS OK, 



0125705 01 002477 073044 

0125706 



-001- 



37 
38 
39 
40 
41 
42 
43 
44 
45 
46 

48 
49 



TBS 

BC 

LL 

TBN 

BNC 

LI 

SMIO 

A1S 

LI 

CALL 

BSAI 
CALL 



THE TAPE STATUS CAN BE UPDATED. 

N(STPST>(RAO),S(STPST> U HAS ADR BEEN UPDATED. 
JUSTFLG 

U PLACE ADR OF BLOCK IN R11 

0CHECK IF READ OTHER TRACK MUST START 



R11,I OBUF 
R11,S?DF0F) 
OKFLG 
R10,INIT 



TCBADR+N(STATEFLG) 

RO,TIMST 

PUSHSTAT 

pushsTat 
TIMOUT 



*STOP TAPE FOR BASE REWIND 



FALLOW STOP TO TAKE AFFECT AND SETTLE 

HARDWARE 
U SUBROUTINE PUSHSTAT IS IN PROGRAM CTAPH 
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DO* 



TAPE HANDLER PROGRAM 

TAPE INTERRUPT LEVEL PROGRAMING 



0125706 01 

0125707 01 
0125710 01 
0125712 
0125712 
0125712 01 
0125714 
0125714 

0125716 01 
0125717 
0125717 

0125717 01 

0125720 01 

0125721 01 

0125722 01 

0125723 01 

0125724 01 

0125725 01 

0125726 01 

0125727 01 
0125730 

0125730 01 

0125731 01 

0125732 01 
0125734 01 



002500 173022 

002501 000004 

002502 130660 045266 LAYOUT 



01 



002504 137020 126570 0126570 H 

002506 137020 127351 0127351 

002510 155012 0125730 

002511 173024 

002512 161720 

002513 051760 

002514 055016 0125740 

002515 062760 

002516 003027 

002517 051120 

002520 055002 0125730 

002521 053661 0125610 

002522 103060 

002523 044072 

002524 003401 000025 
002526 044000 



001- 01 
02 
03 
04 
05 

001- 06 
07 

001- 08 
09 
10 
11 

001- 12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



OKFLG 



JUSTFLG 



BSAI 
DATA 
LL 

CALL 

BSA 

CALL 

BSA 

BNC 



NOMT 



CALL 

BSAI 

SBS 

TBS 

BNC 

ZBS 

LN 

TBS 

BNC 

B 

ZR 
ST 
LI 
ST 



0125735 

0125735 01 002527 037020 127060 0127060 



27 CALL 
-001- 28 BSA 

29 TAPEHL OW 
-001- 30 NOTE 



0:43:06 2/06/81 **** 
CTAPH W77D 
AT SUBROUTINE TIMOUT IS IN PROGRAM CSYSUB 



TXIMOUT 

4 

R11,I_0BUF 

UPDATSTAT 

UPDATSTAT 

BOUNDCHK 

BOUNDCHK 

NOMT 



U PLACE ADR IN STATUS WORD. 

» CHECK RANGE OF CLIENT ACCESS. 



# SUBROUTINE STATSET IS IN PROGRAM CTAPH 
H MARK TAPE POSITION KNOWN. 
#CHECK FOR READ SEO.UENCE ERROR 



STATSET 

SXTATSET 

0(RA1),S(P0S0K) 

0(RA1),S(SQERR> 

UPDAFINI 

0(RA1),S(S«ERR) 

R1,SEQERR 

N(MAINT)(RAO),S(MAINT> MS ERROR RECOVERY ACTIVE 

NOMT 

ENDINT 

R3 

R3,N(STATEWRD)(RA0) ^PREPARE FOR CLIENT ABORT 

R0,CLOSE+ES(REflSTP) 

RO,N(RE«)(RAO) ^ESTABLISH CLOSE AS NEXT BASE STATE 

PRNTER 

PRNTER 

0(2531) » 11798 

************* THE FIRST ADDRESS OVERWRITTEN IS 002531 ********** 



0125737 01 002531 153651 
0125740 



0125610 



01 
01 



0125740 
0125740 01 
0125741 
0125742 
0125744 01 

0125746 01 

0125747 01 
0125750 

0125750 01 

0125751 01 

0125752 01 



002532 162220 

002533 040015 

002534 003402 007477 
002536 003405 003415 

002540 055002 0125750 

002541 061200 

002542 151367 

002543 054637 0125610 

002544 017460 007404 



33 


B 


34 


EOW 


001- 35 


NOTE 


38 


UPDAFINI 


39 


ZBS 


40 


L 


41 


NI 


42 


CI 


43 


BNC 


44 


SBS 


45 


NOIOCMP 


46 


TBS 


47 


BC 


48 


CIRM 


49 


TAPEHL OW 



ENDINT 

* 11798 
*************** THE LAST ADDRESS OVERWRITTEN IS 002531 ********** 



N(SRFAL)(RAO),S(SRFAL> 

RO,N(LSTCOM)(RAO> 

RO,M(COM)+M(DVIC) 

RO,TRB * CHECK IF READ A BLOCK WAS GIVEN. 

NOIOCMP 

N(IOCMP)(RA0),S(IOCMP) 

N(DIAGBITSXRA0),S(DIAGBITS>+1 K IF DIAG IP TERMINATE INTERRUPT. 

ENDINT 

R3,READST,0,0<17) 

0(2546) » 12274 
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TAPE HANDLER PROGRAM 

TAPE INTERRUPT LEVEL PROGRAMING 



-001- 01 



NOTE 



-IB4- 



0:43:06 2/06/81 **** 
CTAPH W77D 
************** THE FIRST ADDRESS OVERWRITTEN IS 002546 ********** 



0125754 01 002546 055634 
0125755 

0125755 01 002547 140343 
0125756 



0125610 



-001- 



04 

05 RTNCLNT 

06 

07 

08 



BNC 

r 

L 

EOH 

NOTE 



ENDINT 

R14,N(H0C0NPT)<RA0) 

It 12274 
*************** THE LAST ADDRESS OVERWRITTEN IS 002547 ********** 



0125756 01 002550 040364 

0125757 

0125757 01 002551 037020 125761 0125761 
0125761 
0125761 
0125761 



01 002553 171420 



11 L 

12 CALL 
-001- 13 BSA 

14 CLNLINKUP 

15 BEGIN 
-002- 16 HA 

17 TAPEHL OW 
-001- 18 NOTE 



R15,N(C0NTLPT)(RA0> 

CLNLINKUP 

CLNLINKUP 



0(2554) K 12274 

************* THE FIRST ADDRESS OVERWRITTEN IS 002554 ********** 



0125762 01 002554 031000 112234 0112234 
0125764 



21 LAL RL,CLNTRTN,RAO 

22 EOW n 12274 

-001- 23 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002555 ********** 



0125764 

0125764 01 002556 172000 

0125765 01 002557 016014 000017 
0125767 01 002561 072400 

0125770 01 002562 072721 

0125771 01 002563 052420 



26 FUNRTN 

27 GN 

28 IRM 

29 HN 

30 HN 

31 BR 



R0,0 

R0,R12,0<17) 

R0,0 

R13,1 

0(RA1) 



H INSERT ADDRESS BITS INTO RO 
H CHANGE RETURN ADDRESS 

H GO TO CLIENT TO UNLOAD BUFFER. 



0125772 



0125772 01 

0125773 01 
0125774 
0125775 
0125775 01 
0125777 01 

0126000 01 

0126001 01 
0126003 01 
0126004 



01 



002564 151140 

002565 055011 0126004 

002566 062140 

002567 10j641 160013 

002571 023440 

002572 003045 

002573 136040 126001 0126001 
002575 053615 0125620 



35 WRITEINT 

36 SEGMENT OF THE INTERRUPT RESPONSIBLE FOR WRITING THE TAPE. 

37 # BASE LEVEL HAS INITIATED THE WRITE AND LOADED THE 1ST TWO TDC 

38 n BUFFERS. 

N(WSIKRA0),S<WSI) H CHECK FOR EXTRA WRITE STOP INTERRUPT. 



* INIT. BUFFER UNIT 



40 TBS 


NCWSIXRA 


41 BNC 


MOREBUF 


42 ZBS 


NCWSIKRA 


43 BUFINT 




44 LI 


R10>BINIT 


45 SMIO 




46 LN 


R2,5 


47 BX 


R2,* 


48 B 


ENDI 


49 MOREBUF 
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i 


» • • i 

F04 1 


) 






0:43:06 2/06/81 **** 




TAPE HANDLER PROGRAM 










TAPE INTERRUPT LEVEL PROGRAMING 




CTAPH W77D 






0126004 01 002576 140051 

0126005 01 002577 017440 007415 MASACS 


01 L 

02 CIRM 


R2,N(BUFCT)(RA0) '_ .. - 

R2,BUFBLK,0,M(BUFCT> » TEST IF COMPLETE BLOCK DONE. 






0126010 

0126010 01 002602 037020 126453 0126453 


03 BC 

04 CALL 
-001- 05 BSA 


SETABEUP 

LOADBUF 

LOAOBUF 






0126012 01 002604 153576 0125610 


06 B 


ENDINT 






0126013 


10 SETABEUP 

11 I THE WRITE HAS BEEN TERMINATED 1 BLOCK HAS BEEN WRITTEN 






0126013 01 002605 103641 003015 
0126015 01 002607 023440 


12 LI 

13 SMIO 


R10,TWSTP 

AfPRIME TDC TO STOP 

R2,5 








14 LN 






0126017 

0126017 01 002611 136040 126017 0126017 


15 BXSTMB 

16 BX 


r2,* U TIME FOR RESPONSE 






0126021 01 002613 023500 


17 TIO 








0126022 01 002614 055006 0126030 


18 BNC 


INTRMV 

R4,N(BUFCT)(RA0) * CLEAR BUFFER COUNTER 
N(IOCMP)(RAO) / S(IOCMP) * FLAG BASE DONE 
N(WSI)(RAO),S(WSI) # SET THE EXTRANEOUS INT. FLAG. 






0126023 01 002615 003100 

0126024 01 002616 044111 

0126025 01 002617 061200 


19 ZR 

20 ST 

21 SBS 

22 SBS 






0126027 01 002621 053561 0125610 


23 B 


ENDINT 






0126030 

0126030 01 002622 151367 


27 INTRMV 

28 TBS 


N(DIAGBITS)(RA0),S(DIAGBITS)+1 






0126031 01 002623 054744 0125775 

0126032 01 002624 040210 


29 BC 

30 L 


BUFINT 
R8,N(TAPN0XRA0) 






0126033 01 002625 003603 000003 

0126035 01 002627 041417 CTSD 

0126036 01 002630 042410 


31 01 

32 LA 

33 LX 

34 TAPEHL OW 
-001- 35 NOTE 


R8,M(TAPN0) 

R0,TUSTAT<RA1> 

R0,R8(RA1) (KPRINT THE BLOCK THAT FAILED. 

0(2631) * 12230 

************* THE FIRST ADDRESS OVERWRITTEN IS 002631 ********** 






0126037 01 002631 003402 003777 


38 NI 

39 EOW 
-001- 40 NOTE 


RO,M(PTP) 

It 12230 






0126041 


*************** THE LAST ADDRESS OVERWRITTEN IS 002632 ********** 






0126041 

0126041 01 002633 037020 110023 CSYSUB 


43 CALL 
-001- 44 BSA 


BINXBCD 

BINXBCD 

R1 R8 

PRI0R=3,PACTI0N=**,FMT(WRD(T,A,P,E>,WRD(I,N,T),WRD(E,R,R>,SKP,BCD 

,L_X,L_X,L_X> 






0126044 


45 LR 

46 PRINT 


■ 
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TAPE HANDLER PROGRAM 










0:43:06 2/06/81 **** 




TAPE INTERRUPT LEVEL PROGRAMING 








CTAPH W77D 








-001- 


01 n 


MESSAGE PROTOTTPE 








-001- 


02 n 


** mm 


TAPE INT ERR nnnn xxxx xxxx xxxx 




0126044 01 002636 073053 




-002- 


03 


BSAI 


PXMRY h SUBROUTINE pmry IS IN PROGRAM ttyapp 




0126045 01 002637 104260 




-002- 


04 


VFD 


1,1 2,0 1,0 3,4 1,0 1,1 1,0 2,3 1,0 3,0 




0126046 01 002640 064040 




-002- 


05 


VFD 


4,TTY0_L X 4,TTY0_BCD 4,TTY0 SKP 4,TTY0 WRD 




0126047 01 002641 021146 




-002- 


06 


VFD 


4,TTY0_ 4\TTY0 4,TTY0 L X 4,TTY0 L X ~ 




0126050 01 002642 014242 


~ TTTTBL 


-002- 


07 


VFD 


5,3 11,TXAPE 




0126051 01 002643 001113 


-- TTYTBL 


-002- 


08 


VFD 


5, 11,IXNT 




0126052 01 002644 000307 


~ TTYTBL 


-002- 


09 


VFD 


5, 11,EXRR 








-001- 


10 


NOTE 


THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 




. 










CONTAINED IN GENERAL REGISTERS R8,R9,R10,R11, 








-001- 


12 


NOTE 


****THIS MESSAGE WILL RESULT IN A MAJOR ALARM**** 




0126053 01 002645 153722 


-- 0125775 




13 


B 


BUFINT 




0126054 






17 CRCFAILPO 


. 










18 


SPELL 


R8,(F,A,T,L,R,E,A,D) 




0126054 01 002646 103601 001437 


-001- 


19 


LI 


R8,fatlrEad 




0126056 






20 


CALL 


PTREC 




0126056 01 002650 073046 


— 


-001- 


21 


BSAI 


PXTREC U SUBROUTINE PTREC IS IN PROGRAM CTAPH 




0126057 






22 CRCFAIL 












23 n 


START 


OF THE RECOVERY OF A BLOCK WHICH HAS FAILED A CRC CHECK. 




0126057 






25 


CALL 


CRCEREC 




0126057 01 002651 137020 127155 


-001- 


26 


BSA 


CRCEREC 










27 TAPEHL OW 


0(2653) * 12274 








-001- 


28 


NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 002653 ********** 




0126061 01 002653 153527 


-- 0125610 




31 


B 


ENDINT 




0126062 






32 


EOW 


# 12274 








-001- 


33 


NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 002653 ********** 




' 
























































. 










' 


























■ 














■ 




COMMON TAPE HANDLER 










PR-1C957-50 




0:43:06 2/06/81 TRADE 


SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH ISSUE 06 PAGE 88 












■ 








JSL 



TAPE HANDLER PROGRAM 
TTY INPUT HANDLING RESTORAL 
0126062 



01 
02 
03 
04 
05 
06 
07 
08 



0:43:06 2/06/81 **** 
CTAPH W77D 



RSTTAPE 



'RESIDENT PORTION OF. TAPE UNIT RESTORAL ROUTINE FOR SERVICING 
THE RST-TAPE N' INPUT MESSAGE. IF THE REQUEST IS UNCONDITIONAL, NO 
Splcili' TESTING Is PERFORMED ON THE UNIT. THE TAPE WILL BE INITIALIZED 
AND THE SOFTWARE STATUS IS UPDATED. 

A NORMAL REQUEST WILL RESULT IN A CHECK TO ASSURE THAT THE 
TAPE HAS PASSED DIAGNOSTICS AND THAT THE TAPE HAS BEEN COMPARED 
AGAINST ITS MATE. IF NOT, A RL WILL RESULT TO THE REQUEST 



0126062 01 002654 130422 020006 TDATA 



-001' 



12 LL 

13 TAPEHL OW 

14 NOTE 



R1,TAPETBL # HOW MANY EQUIPPED TDCS? 

0(2656) 03E79O243 

************* THE FIRST ADDRESS OVERWRITTEN IS 002656 ********** 



0126064 01 002656 037000 113436 0113436 -001- 

-001- 
-001- 



17 CPATCH1 BGNP 

18 BL 

19 NOTE 

20 NOTE 



0(654) 03E790243 

XXX655 

CPATCH1 'CSECT* 

***************** PATCH AREA BEGINS AT 000654 **************** 



0113436 
0113436 
0113437 
0113440 
0113442 
0113442 
0113444 
0113445 
0113447 
0113450 
0113452 
0113454 
0113456 
0113457 
0113461 
0113463 
0113465 
0113465 



03 000654 104037 

03 000655 005026 . 

03 000656 050400 126161 0126161 

03 000660 037020 003165 CBLM 

03 000662 124003 BLMMA 

03 000663 050000 126103 0126103 

03 000665 024007 BLMMA 

03 000666 050400 126067 0126067 

03 000670 003401 000002 

03 000672 030420 043177 CTSD 

03 000674 020001 

03 000675 050400 126067 0126067 
03 000677 030400 010052 CNRUTL 
03 000701 003405 000007 

03 000703 037000 126066 0126066 



-001- 23 XXX655 PATCHAREA 

24 SN 

25 SR 

26 BNCL 

27 CALL 
-001- 28 BSA 

29 TBN 

30 BCL 

31 TBN 

32 BNCL 

33 LI 

34 LL 

35 CR 

36 BNCL 

37 LL 

38 CI 

39 ENDP 
-001- 40 BL 
-001- 41 NOTE 
-001- 42 NOTE 



R1,1 

R1,R6 

UNDEF 

ACTMSF 

ACTMSF 

R0,DGNTAPE 

RLPLY 

RO,OFLUTIL 

NOTUTL 

RO,TUUTIL 

R1,0FLUCTL 

R0,R1 

NOTUTL 

R0,TUUTCTL 

R0,AUDITFN 

XXX658 

************ 
***** NUMBER 



U BRANCH IF BAD TAPE NO. TYPED 
* TAPE DIAGNOSTIC IN PROGRESS? 



n TAPE AUDIT IN PROGRESS? 

(H3E790243 

LAST PATCH ADDRESS USED IS 000704 *************** 
OF PATCH WORDS USED IS 25 (DECIMAL) ******** 



0126066 

0126066 01 002660 154015 

0126067 

0126067 



-001- 45 XXX658 OWCONTINUE 
0126103 46 BC RLPLY 

47 NOTUTL 

48 EOW /K3E790243 

-001- 49 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002660 ********** 
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TAPE HANDLER PROGRAM 

TTV INPUT HANDLING RESTORAL 



BO? 



0:43:06 2/06/81 **** 
CTAPH W77D 



0126067 01 

0126071 01 

0126072 01 

0126073 01 

0126074 01 

0126075 01 

0126076 01 

0126077 01 

0126100 01 

0126101 01 

0126102 01 
0126103 
0126103 

0126103 01 
0126104 
0126104 

0126105 01 
0126106 

0126106 01 
0126107 

0126107 01 
0126111 
0126113 
0126113 01 
0126114 
0126115 
0126117 01 
0126120 01 
0126122 01 



01 



01 



01 
01 



0126123 

0126123 01 

0126124 01 

0126125 01 

0126126 01 

0126127 01 
0126130 



002661 131040 043337 CTSD 

002663 043046 

002664 003160 

002665 024234 TTYTBL 

002666 054013 0126107 

002667 024053 

002670 055006 0126104 

002671 024056 

002672 055003 0126103 

002673 051300 

002674 054005 0126107 

002675 156446 TTYTBL 

002676 124056 

002677 054776 0126103 

002700 056444 TTYTBL 

002701 131400 043200 CTSD 
002703 003401 000111 CTSD 

002705 073031 

002706 144160 

002707 031002 020007 TDATA 

002711 043226 

002712 003641 040007 
002714 023440 



002715 106000 

002716 006000 

002717 006000 

002720 006000 

002721 006000 





03 




LAL 


R2,TUSTAT,RA0 




U4 




LAX 


R2,R6(RA0) 




05 




ZR 


R7 




06 




TBN 


R9,S(UCL) 




0/ 




BC 


CONTRST 




08 




TBN 


R2,S(TSTATE) 




09 




BNC 


REDONLY 




10 




TBN 


R2,S(RED0N> 




11 




BNC 


RLPLY 




12 




TBS 


0(RA0),S(COMPR0K> 




13 




BC 


CONTRST 




14 


RLPLY 








15 




RETURN 


TTY RL 


■001- 


16 




OTSAGN 


TTY RL 




17 


REDONLY 






18 




TBN 


R2,S(RED0N> 




19 




BC 


RLPLY 




20 




RETURN 


TTY OK 


■001- 


21 




BTSAGN 


TTY OK 




22 


CONTRST 






23 




LAL 


R0,RESDIR,RA1 




24 




LI 


R0,T8LSIZ(RESDIR) 




& 




CALL 


CLR WRDS 


■001- 


26 




BSAI 


elr wRds 




27 




ST 


R7,0"(RAO) 




28 




LAL 


RO,TUENABL,RAO 




29 




LAX 


R9,R6(RA0> 




30 




LI 


R10,INIT 




31 




SMIO 






32 


TAPEHL 


OW 


0(2715) 


001- 


33 




NOTE 


************* THE 




36 


DDELETE NOTE 


1 




37 




TAKEOUT 


5 


001- 


38 




LR 


0,0 


001- 


39 




LR 


0,0 


001- 


40 




LR 


0,0 


001- 


41 




LR 


0,0 


001- 


42 
43 




LR 
EOW 


0,0 


001- 


44 




NOTE 


*************** Tl 



#GET PRESENT STATUS 

MAS UNCONDITIONAL REQUEST INPUTTED. 

HIS TU MARKED OOS 

#N0 CHECK READ ONLY BIT 

0HAS DIAG PASSED ON THIS UNIT. 



*IS UNIT IN READ ONLY STATE 



It ZERO OUT RESIDENT DIRECTORY FOR PROTECTION. 
» SUBROUTINE CLR.WRDS IS IN PROGRAM CSYSUB 
0PLACE UNIT BACK IN SERVICE 






# 11914 
*************** THE LAST ADDRESS OVERWRITTEN IS 002721 ********** 
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TAPE HANDLER PROGRAM 

TTY INPUT HANDLING RESTORAL 



0126130 

0126130 01 002722 056444 



TTYTBL 



01 
-001- 02 



C05 



RETURN TTYJ>K 
BTSAGN TTY.OK 



0:43:06 2/06/81 **** 
CTAPH W77D 
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D05 



TAPE HANDLER PROGRAM 

REMOVE TAPE ROUTINE. TTY REQUEST HANDLER 



0126131 






01 
01 



0126131 01 
0126133 01 
012613* 
0126135 
0126136 01 
0126140 01 

0126142 01 

0126143 01 

0126144 01 

0126146 01 
0126147 

0126147 01 
0126150 01 

0126152 01 
0126153 

0126153 01 
0126155 
0126156 
0126156 01 
0126160 
0126160 01 
0126161 



01 



002723 130422 020006 TDATA 

002725 004037 

002726 005026 

002727 055024 0126161 

002730 003561 004000 
002732 030400 043327 CTSD 

002734 020006 

002735 055010 0126153 

002736 031400 043317 CTSD 

002740 003017 

002741 073031 -001- 

002742 103401 000027 

002744 044400 

002745 131400 043337 CTSD 
002747 046566 

002750 037020 127033 0127033 -001- 

002752 156444 TTYTBL -001- 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 RMVTAPE 

02 # TAPE REMOVAL ROUTINE SERVICING THE RMV:TAPE X! MESSAGE 



0126161 

0126161 01 002753 156447 



TTYTBL . -001- 



06 LL 

07 SN 

08 SR 

09 BNC 

10 LI 

11 LL 

12 CR 

13 BNC 

14 LAL 

15 LN 

16 CALL 

17 BSAI 

18 LI 

19 ST 

20 RMVENT 

21 LAL 

22 STX 

23 CALL 

24 BSA 

25 RETURN 

26 BTSAGN 

27 UNDEF 

28 tt AN UNDEFINED 

29 RETURN 

30 BTSAGN 



R1,TAPETBL 

R1,1 

R1,R6 

UNDEF 

R7,M(TSTATE) 

RO,TCBADR+N(TAPNO) 

R0,R6 

RMVENT 

R0,TCBADR,RA1 

R0,15 

CLR_WRDS 

clD wRds 

RO,IDLE+ES(REQSTP) 

R0,N(REQ)(RA1) 

R0,TUSTAT,RA1 

R7,R6(RA1) 

RMVLED 

RMVLED 

TTY OK 

TTY OK 






# HOW MANY EQUIPPED TDCS? 



* BRANCH IF BAD TAPE NO. TYPED. 

#GET R7 READY TO REMOVE TAPE FROM SERVICE. 

# DOES REMOVED TAPE REQUIRE CLIENT ABORT? 



0CLEAR TCB 

# SUBROUTINE CLR.WRDS IS IN PROGRAM CSYSUB 



U MARK LED IN SSP. 



TDC WAS TYPED, GIVE A NG. 

TTY_NG 

TTY NG 
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TAPE HANDLER PROGRAM 
EMERGENCY TCB INIT. ROUTINE 
0126162 



125 - __ 

0:43:06 2/06/81 **** 

CTAPH W770 

01 INITTAPE Ncy KB c| _ up R0UT1NE> IN THE EVENT TEMPORARY STORE GETS 

03 » RANDOMLY WRITTEN AND PLACES THE TCB IN AN UNUSEABLE STATE, THIS MESSAGE 

04 n MILL CLEAR UP THE TCB AND THEREFORE MAKE IT ACCESSABLE FOR CLIENT USE. 



0126162 

0126162 01 

0126163 01 
0126165 01 
0126167 
0126167 01 
0126170 01 

0126172 01 

0126173 01 
0126174 

0126174 01 



002754 171420 

002755 003401 000020 
002757 031420 043317 CTSD 

002761 073031 

002762 103401 000007 

002764 044400 

002765 061727 

002766 056445 TTYTBL 





08 


BEGIN 


002- 


09 


HA 




10 


LI 




11 


LAL 




12 


CALL 


001- 


13 


BSAI 




14 


LI 




15 


ST 




16 


SBS 




17 


RETURN 


•001- 


18 


BTSAGN 



R0,16 

R1,TCBADR,RA1 

CLR.WRDS 

elr wRds 

R0,IDLE 

rO,N(RE«)(RA1> 

N(REPK)(RA1),S(REPK) 

TTY IP 

TTY IP 



U ZERO ALL 16 WORDS OF THE TCB. 

II SUBROUTINE CLR.WRDS IS IN PROGRAM CSYSUB 

HTSET UP IDLE STATE AND REPACK REOUEST. 
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F05 



TAPE HANDLER PROGRAM 
PERIODIC REPACK ROUTINE 
0126175 



0:43:06 



2/06/81 **** 



CTAPH 

01 REPACK 

02 K THE COMMON SYSTEM TIME MONITOR WILL CALL THIS ROUTINE PERIODICALLY 

03 # TO INITIATE THE REPACKING OF THE TAPE DEVICES. 



W77D 



0126175 07 

0126175 01 002767 171420 -002- 08 

0126176 01 002770 031000 043317 CTSD 09 

0126200 01 002772 061327 10 

0126201 11 
0126201 01 002773 056420 -001- 12 



BEGIN 

HA 

LAL RO,TCBADR,RAO 

SBS N(REPK)(RAO),S(REPK> * SET REPACK BIT. 

RETURN 

BTSAG 
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TAPE SUBROUTINES 
OPEN TC8 SUBROUTINE 
0126202 



0126202 

0126202 01 002774 171420 

0126203 01 002775 022160 



01 
02 



-002- 



605 



0:43:06 2/06/81 **** 
CTAPH W77D 



OPENM 

^SPECIAL ENTRY FOR CLIENT POINTED TO DIRECTORY ENTRY. 



03 #RA1 POINTS TO CLIENT CONTROL BLOCK CONTAINING ASCII DATA. 



04 
05 
06 



BEGIN 

HA 

ZBN 



-001- 08 



07 TAPEHL OW 



NOTE 



R7,0 #FLAG FOR THIS ENTRY POINT. 

0(2776) n 12376 _ w 

************* THE FIRST ADDRESS OVERWRITTEN IS 002776 ********** 



0126204 01 002776 053005 
0126205 



0126211 11 B REGOPEN 

12 EOW # 12376 

-001- 13 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 002776 ********** 



0126205 



0126205 

0126205 01 002777 171420 

0126206 01 003000 026160 



16 OPENTCB 

17 tt THIS ROUTINE IS ACCESSED FROM THE OPEN AND SIEZE MACROS WHICH HAVE SET 

18 # UP INFORMATION CONCERNING THE CLIENT NUMBER AND FILE NAME AFTER 

19 # THE CALL TO THIS ROUTINE. A RETURN (CF=1) INDICATES THAT THE 

20 » CLIENT HAS SIEZED CONTROL OF THE TAPE UNIT AND MAY MAKE FURTHER 

21 H REQUESTS. RETURN 1 (CF=0) TCB IS BUSY. 

22 H RO ON ENTRY UNDER SIEZURE ROUTINE CONTAINS THE TU NUMBER. 

23 # R1 ON ENTRY UNDER SIEZURE ROUTINE CONTAINS TRACK AND BLOCK NUMBER. 



25 BEGIN 
-002- 26 HA 

27 SBN 

28 TAPEHL OW 
-001- 29 NOTE 



R7.0 *FLAG FOR THIS ENTRY POINT. 

0(3001) tt 12376 

************* THE FIRST ADDRESS OVERWRITTEN IS 003001 ********** 



0126207 01 

0126210 01 

0126211 01 

0126212 01 

0126213 01 
0126214 



003001 072340 

003002 072361 

003003 106120 

003004 006141 

003005 040440 



32 
33 



-001- 



GN 
GN 



34 REGOPEN LR 



35 
36 
37 
38 



LR 
L 

EOW 
NOTE 



R14,0 tt ADDRESS OF CLIENT DATA BLOCK 

R15,1 

R5,R0 H POSSIBLE TAPE NO. IN RO 

R6.R1 * POSSIBLE TRACK IN R1 

R2,0(RA1) tt GET CLIENT DATA 

it 12376 
*************** THE LAST ADDRESS OVERWRITTEN IS 003005 ********** 



0126214 01 003006 003002 41 LN 

0126215 « SBIN 

0126215 01 003007 013002 -001- 43 MIS 

0126216 01 003010 105722 016462 -001- 44 DATA 

0126217 01 003011 016462 174000 45 LRM 
0126221 01 003013 031100 043317 CTSD 46 LAL 

0126223 01 003015 024104 47 TBN 

0126224 01 003016 054060 0126304 48 BC 

0126225 01 003017 017513 017400 49 CIRM 



R0,2 



*GET RETURN FOR BUSY TCB 



2 

35794 

R3,R2,M(CLIENT) 

R4,TCBADR,RA0 

R4,S(RE«STP) 

BUSY 

R4,0,S<CLIENT),M(CLIENT>/ES(Ol.IENT) tt IS TCB IDLE. 



#GET CLIENT NUMBER 

It IS INIT TAPE IN PROGRESS? 
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A06 



TAPE SUBROUTINES 
OPEN TCB SUBROUTINE 



0:43:06 



2/06/81 **** 
W770 



0126227 01 
0126230 01 

0126232 01 

0126233 01 

0126235 01 

0126236 01 
0126240 01 
0126241 
0126242 

0126243 01 

0126244 01 
0126246 
0126247 
0126247 01 
0126250 01 



01 
01 



01 



003021 055055 0126304 

003022 003460 000032 

003024 044060 

003025 002341 000017 

003027 044362 

003030 002025 003777 

003032 003020 

003033 024051 

003034 055005 0126247 

003035 010521 

003036 002126 100000 

003040 061346 

003041 124043 

003042 055030 0126300 



01 


BNC 


02 


AI 


03 


ST 


04 


STM 


05 


ST 


06 


STM 


07 


ZR 


08 


TBN 


09 


BNC 


10 


RLN 


11 


STM 


12 


SBS 


13 


NOTEXPLI 


14 


TBN 


15 


BNC 


16 


TAPEHL OH 


17 


NOTE 



0126251 01 003043 037000 114242 0114242 



0114242 

0114242 04 000133 116646 003777 

0114244 04 000135 014252 

0114245 04 000136 055027 0114274 

0114246 04 000137 024153 — 

0114247 04 000140 054003 0114252 

0114250 04 000141 024154 

0114251 04 000142 055023 0114274 

0114252 

0114252 04 000143 103561 000272 TTVTBL 

0114254 04 000145 003621 000307 TTYTBL 

0114256 04 000147 003200 

0114257 



0114257 04 000150 073053 

0114260 04 000151 102200 

0114261 04 000152 002000 

0114262 04 000153 021042 

0114263 04 000154 014242 TTYTBL 

0114264 04 000155 001517 TTYTBL 



-001- 



20 CPATCH2 B6NP 
-001- 21 BL 
-001- 22 NOTE 
-001- 23 NOTE 



CTAPH 

BUSY 

R3,0PEN+ES(REQSTP) #SET UP REQUEST AND BLOCK FURTHER REQUESTS 

R3,0(RA0) 

R14,N(H0FILNAM)(RA0),M(H0FILNAM) 

R15,N(FILNAM)(RA0) H STORE ADDRESS OF FILE NAME AWAY 

R1,N(L0GBLK)(RA0),M(L0GBLK) # STORE CLIENT INDEX 

R1 

R2,S(EXP0P) 

NOTEXPLI 

R5,S(EVO0) 

R5,N(EV0D) (RA0),M(EV0D) 

N(EXPLIC)(RAO),S(EXPLIC) 

R2,3 If SIEZE? 

ITSOP 

0(3043) * 12808 

************* THE FIRST ADDRESS OVERWRITTEN IS 003043 ********** 

0(133) it 12808 

XXX705 

CPATCH2 'CSECT' 

***************** PATCH AREA BEGINS AT 000133 **************** 



-001- 26 XXX705 PATCHAREA 



27 
28 
29 
30 
31 
32 
33 



LRM 

TZ 

BNC 

TBN 

BC 

TBN 

BNC 



-001- 



3t BLKISZRO 

35 SPELL 

36 LI 

37 SPELL 
-001- 38 LI 

39 ZR 

40 PRINT 



R10,R6,M(BLKADR) 

R10 

BLKISOK 

R6,11 

BLKISZRO 

R6,12 

BLKISOK 

R7,(B,L,K) 

R7,BXLK 

R9,(E,R,R) 

*9,EXRR 

R8 

PACTION=M,(WRD<T,A,P,E),WRD(0,P,E,R),WRD<A,B,T),WRD,DEC,WRO> 



-001- 42 U MESSAGE PROTOTYPE 

-001- 43 # M mm TAPE OPER ABT WRD ddddd WRD 

-002- 44 BSAI PXMRY M SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

-002- 45 VFD 1,1 2,0 1,0 3,2 1,0 1,1 1,0 2,0 1,0 3,0 

-002- 46 VFD 4,TTY0_WRD 4,TTY0 DEC 4,TTY0 WRD 4,TTY0 WRD 

-002- 47 VFD 4,TTY0 4,TTY0 4,TTY0 4,TT?0 

-002- 48 VFD 5,3 11,TXAPE 

-002- 49 VFD 5, 11,0XPER 
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B06 



TAPE SUBROUTINES 
OPEN TCB SUBROUTINE 

011 4265 0* 000156 000001 TTYTBL 

0114266 04 000157 103001 

0114267 04 000160 003060 

0114270 04 000161 034460 043317 CTSO 

0114272 04 000163 037000 126306 0126306 
0114274 

0114274 04 000165 126157 

0114275 04 000166 003067 

0114276 

0114276 04 000167 037000 126253 0126253 



002- 01 


VFD 


001- 02 


NOTE 


04 


LN 


05 


ZR 


06 


STL 


07 


DEPATCH NOTE 


08 


BL 


09 


BLKISOK 


10 


SBN 


11 


LN 


12 


ENOP 


•001- 13 


BL 


■001- 14 


NOTE 


•001- 15 


NOTE 



0:43:06 2/06/81 **** 

CTAPH W77D 

5, 11,AXBT 

THE VARIABLE PORTION OF THE OUTPUT HESSA6E TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R7,R8,R9, 
R0,1 
R3 

R3,TCBADR 

REPLACE BL WITH B ON THE LINE BELOW 
BLKNG 

R6,S(SEEZ) It SET SIEZE IP BIT 
R3,IDLE 

H 12808 
XXX726 

************ LAST PATCH ADDRESS USED IS 000170 *************** 
***** NUMBER OF PATCH WORDS USED IS 30 (DECIMAL) ******** 



0126253 

0126253 01 003045 102060 000017 

0126255 



-001- 18 XXX726 OWCONTINUE 

19 STM R3,N(RE9)(RA0),M(REQ) 

20 EOW * 12808 

-001- 21 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003046 ********** 



0126255 01 003047 002145 114000 

0126257 01 003051 002146 014000 

0126261 01 003053 044130 

0126262 01 003054 003401 014527 MASACS 

0126264 01 003056 044007 

0126265 01 003057 007350 

0126266 01 003060 007371 

0126267 

0126267 01 003061 073024 -.- 

0126270 01 003062 107371 

0126271 01 003063 007350 

0126272 01 003064 003025 

0126273 01 003065 054005 0126300 

0126274 01 003066 002020 000017 

0126276 01 003070 003001 

0126277 01 003071 053005 0126304 

0126300 



24 STM R6,N(VERTRK)(RA0),M(VERTRK)+M(SE£Z) #SET UP VERIFY TRACK FOR 

SIEZE 
R6,N(TRACK> (RAO), M (TRACK) 
R5,N(TAPN0)(RA0) 
RO,BLKMAX+M(ENDTRK> 
RO,N(LASTBLK)(RA0) 
RA1,R8 
RA1+1,R9 
STATSET 
SXTATSET 
RAU1,R9 
RA1,R8 
R1,5 
ITSOP 
R1,N(RE«)(RA0),M(REQ> 



26 STM 

27 ST 

28 LI 

29 ST 

30 EXR 

31 EXR 

32 CALL 
-001- 33 BSAI 

34 EXR 

35 EXR 

36 LN 

37 BC 

38 STM 

39 LN R0,1 

40 B BUSY 

41 ITSOP 

42 TAPEHL OW 
-001- 43 NOTE 



n SUBROUTINE STATSET IS IN PROGRAM CTAPH 



H STORE ABORT RE8UEST TO CLEAN UP TCB. 



^PREPARE RETURN CODE 



0(3072) 03E8OO177 

************* THE FIRST ADDRESS OVERWRITTEN IS 003072 ********** 
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C06 


TAPE SUBROUTINES 








0:43:06 2/06/81 ***♦ 


OPEN TCB SUBROUTINE 








CTAPH W77D 






01 


CPATCH7 BGNP 


0(337) C3E800177 


0126300,01 


003072 137000 121575 


0121575 -001- 02 




BL 


XXX733 






-001- 03 




NOTE 


CPATCH7 'CSECT' 






-001- 04 




NOTE 


***************** PATCH AREA BEGINS AT 000337 **************** 


0121575 




-001- 07 


XXX733 


PATCHAREA 


0121575 06 


000337 161345 


08 




SBS 


N(ERNA)(RAO),S(ERNA> # STOP RECOVERY FROM MATE TAPE 


0121576 06 


000340 003401 000005 


09 




LI 


RO,SEIZST 


0121600 




10 




ENDP 


03E8OO177 


0121600 06 


000342 037000 126302 


0126302 -001- 11 




BL 


XXX735 






-001- 12 




NOTE 


************ LAST PATCH ADDRESS USED IS 000343 *************** 






-001- 13 




NOTE 


***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 


0126302 




-001- 16 


XXX735 


OWCONTINUE 


0126302 




17 




CALL 


PUSHSTAT # PLACE SIEZURE STATE INTP TCB 


0126302 01 


003074 173044 


-001- 18 




BSAI 


pushsTat » SUBROUTINE PUSHSTAT IS IN PROGRAM CTAPH 


0126303 




19 




EON 


#3E8001 77 


• 




-001- 20 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 003074 ********** 


0126303 01 


003075 103000 


23 




ZR 


RO 


0126304 




24 


Busr 






0126304 01 


003076 124160 


25 




1BN 


R7,0 


0126305 01 


003077 055007 


0126314 26 




BNC 


SPECLOSE WHICH ENTRY POINT WAS USED? 






27 


TAPEHL 


OW 


0(3100) H 12808 






-001- 28 




NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 003100 ********** 


0126306 




31 


BUNG 




■ 


0126306 01 


003100 103442 000160 


32 




NI 


R2,M(RTNDX) 


0126310 




33 




EOW 


* 12808 






-001- 34 




NOTE 


*************** THE LAST ADDRESS OVERWRITTEN IS 003101 ********** 


0126310 01 




37 




RRN 


R2.S(RTNDX) 


0126311 01 


003103 043422 


38 




LAX 


R1,R2(RA1) n UPDATE RA 


0126312 01 


003104 072740 


39 




HN 


R14,0 


0126313 01 


003105 072761 


40 




HN 


R15,1 


0126314 




41 


SPECLOSE 




0126314 




42 




ZBIN 




0126314 01 


003106 113002 


-001- 43 




MIS 


2 


0126315 01 


003107 1P7322 


-001- 44 




DATA 


36562 


0126316 




45 




RETURN 




0126316 01 


003110 056420 


-001- 46 




BTSAG 
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TAPE SUBROUTINES 
ORDER EXECUTION ROUTINE 
0126317 



P06 



0:43:06 2/06/61 **** 
CTAPH W77D 



02 * THIS ENTRY POINT HILL RESULT IN THE ORDER SPECIFIED IN R10 TO 

03 ' BE SENT TO THE WE WIT SPECIFIED IN THE TCB. RAO SHOULD BE 

04 # SET TO THE TCBADR. 



012*317 

0126317 01 003111 171420 

0126320 01 003112 053010 

0126321 



0126321 

0126321 01 003113 171420 

0126322 01 003114 053014 

0126323 





06 


BEGIN 




-002- 07 


HA 


0126330 


08 


B 



NOTRACK 

11 # R ?HIS A ENTRY POINT WILL RESULT IN THE ORDER SPECIFIED IN R10 TO 

12 tt BE SENT TO THE TAPE UNIT SPECIFIED IN R9. RAO AS ABOVE. 



14 

-002- 15 

0126336 16 



BEGIN 

HA 

B EXPLICIT 



II *"this ROUTINE WILL SEND THE ORDER SPECIFIED IN R10 TO THE TDC SPECIFIED . 

20 9 IN THE TCB. THE REWIRED TRACK BITS WILL BE SUPPLIED BY THE TCB INFORMATION. 

21 # RAO SAME AS ABOVE. 

23 # RETURN CODES FOR ABOVE ENTRY POINTS. 

24 U RETURN 0-»!ESSAGE OK 

25 It RETURN 1-ERROR MESSAGE,MAINT RESPONSE 

26 # RETURN 2-NO RESPONSE. 



0126323 

0126323 01 

0126324 01 

0126325 01 
0-, 26326 01 
0126330 
0126330 01 

0126332 01 

0126333 01 

0126335 01 
0126336 

0126336 01 

0126340 01 

0126341 01 

0126342 01 

0126343 01 
0126344 
0126344 

0126344 01 
0126346 01 



003115 171420 -002- 

003116 040006 

003117 010417 

003120 016240 030000 

003122 131422 020007 TDATA 

003124 040010 

003125 003402 000003 
003127 042620 

003130 117640 037415 

003132 055004 0126344 

003133 024250 

003134 055002 0126344 

003135 044255 

003136 137020 111050 CSYSUB -001- 
003140 172673 



30 
31 
32 
33 
34 
35 NOTRACK 



BEGIN 

HA 

L 

RLN 

IRH 



36 
37 
38 
39 
40 EXPLICIT 



LAL 
L 
NI 
LX 



41 

42 

43 

44 

45 

46 NONO 

47 

48 

49 



CIRM 

BNC 

TBN 

BNC 

ST 

CALL 

BSA 

HN 



RO,N(TRACK)(RAO> 

R0,1 

R10,R0,M(TRKS> 

R1,TUENABL,RA1 
RO,N(TAPNO)(RAO> 
RO,M(TAPNO) 
R9,R0(RA1) 



» POSITION TRACK BITS 

n INSERT TRACK BITS INTO COMMAND. 



# OBTAIN TDC ENABLE ADDRESS. 
fKWAS THIS A TAPE COMMAND 
MAS IT A MOTION COMMAND. 



R10,13,0,M(DVIC> 

NONO 

R10,8 

R10°N(LSTC0M)(RA0) IYSAVE LAST MOTION COMMAND TO TAPE 



SENDMIO 
SENOMIO 
R11,11 



H SEND ORDER. RETURN CODES SET BY SENDMIO. 
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E06 






TAPE SUBROUTINES 






0:43:06 2/06/81 **** 


ORDER EXECUTION ROUTINE 






CTAPH W77D 


0126347 

0126347 01 003141 056420 


01 RETURN 
-001- 02 BTSAG 


















■ 








* 






■ 
























; 








. 






• 






, 
















■ 


























• 




* 




■ 
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TAPE SUBROUTINES 
REQUEST PLANT SUBROUTINE 
0126350 



0126350 

0126350 01 003142 171420 

0126351 01 003143 072340 

0126352 01 003144 072361 

0126353 01 003145 031040 043317 CTSD 

0126355 01 003147 040440 

0126356 01 003150 017453 017411 
0126360 01 003152 055003 0126363 



-002- 



F06 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 REQR 

02 # THIS SUBROUTINE IS ENTERED TO PLACE ONE OF 6 REQUESTS IN THE TCB. 

03 n A VALIDITY CHECK IS DONE TO ASSURE THAT THE REQUESTING CLIENT IS THE 

04 # CLIENT IN CONTROL OF THE TCB. CF*0 IF REQUEST WAS ABORTED. 

05 # IF THE REQUEST IS 'POSITION', R1 CONTAINS THE LOGICAL BLOCK NUMBER 

06 It OF THE DESTINATION REQUESTED BV THE CLIENT IF THE CLIENT NUMBER 

07 H IS NOCLIENT,THE REAL CLIENT NUMBER IS IN R3. 



09 
10 
11 
12 
13 
14 
15 
16 



BEGIN 

HA 

GN 

GN 

LAL 

L 

CIRM 

BNC 



-001- 18 



17 TAPEHL OW 



NOTE 



R14,0 

R15,1 

R2,TCBADR,RA0 

R2,0(RA1) # RETRIEVE DATA WORD 

R2,N0CLIENT,S(CLIENT),M(CLIENT)/ES(CLIENT) #1* CLIENT NO. 

NORMOP 

0(3153) # 14090 

************* THE FIRST ADDRESS OVERWRITTEN IS 003153 ********** 



It OBTAIN ADDRESS OF DATA WORD AFTER SUB CALL. 



IN R3? 



0126361 01 003153 016043 174000 
0126363 



21 

22 

-001- 23 



IRM R2,R3,O(174000) K MSK OF 'NOCLIENT' 

EOW # 1*090 

NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003154 ********** 



0126363 

0126363 01 003155 141501 

0126364 01 003156 024046 

0126365 01 003157 054002 0126367 

0126366 01 003160 041461 

0126367 

0126367 01 003161 172740 

0126370 01 003162 072761 

0126371 01 003163 040060 

0126372 01 003164 017043 174000 
0126374 01 003166 055055 0126451 



26 NORMOP 




27 LA 


R4,1(RA1) 


29 TBN 


R2,S(TYPER> 


30 BC 


NODONT 


31 LA 


R3,1(RA1) 


32 NODONT 




33 HN 


R14,0 


34 HN 


R15,1 


35 L 


R3,N(CLIENT)(RA0) 


36 CRM 


R2,R3,M(CLIENT) 


37 BNC 


MTRITE 



39 TAPEHL OW 
-001- 40 NOTE 



If ADJUST RA AND RETRIEVE POSSIBLE 2ND DATA 

WORD. 
# CHECK IF 2ND DATA WORD IS REUQIRED. 

n NEEDED TO CORRECT RA. 



U OBTAIN CLIENT IN CONTROL WORD 

n BRANCH IF REQUESTING CLIENT IS NOT IN 
CONTROL. 

#3E790502 



0(3167) 

************* THE FIRST ADDRESS OVERWRITTEN IS 003167 ********** 



43 CPATCH BGNP 
0126375 01 003167 037000 112260 0112260 -001- 44 BL 

-001- 45 NOTE 

-001- 46 NOTE 



0(626) IK3E790502 

XXX768 

CPATCH 'CSECT' , 

***************** PATCH AREA BEGINS AT 000626 **************** 
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606 



TAPE SUBROUTINES 
REQUEST PLANT SUBROUTINE 



0:43:06 



2/06/81 



0112260 

0112260 02, 

0112261 02 
0112262 

0112262 02 

0112264 02 

0112265 02 

0112266 02 

0112267 02 
0112271 
0112271 02 000637 037000 126377 0126377 



000626 106120 

000627 006141 

000630 037020 147320 BLMMA 

000632 106005 

000633 006026 

000634 051100 

000635 050000 126452 0126452 



-001- 01 XXX768 PATCHAREA 





02 


LR 




03 


LR 




04 


CALL 


001- 


05 


BSA 




06 


LR 




07 


LR 




OS 


TBS 




09 


BCL 




10 


ENDP 


001- 


11 


BL 


001- 


12 


NOTE 


001- 


13 


NOTE 



R5,R0 n SAVE RO 

R6,R1 U SAVE R1 

TEMPI*H_ (KSET UP FOR 

TEMPINH 

R0,R5 ~ # GET RO 

R1,R6 n GET R1 

N(REQSTP)(RAO),S(REQSTP) (KCHECK 
NOTYET 

(K3E790502 
XXX771 
************ LAST PATCH ADDRESS 



CTAPH 






W77D 



FULL BASE LEVEL LOOP BREAK 



IF REQUEST CAN BE MADE 



USED IS 000640 *************** 



***** NUMBER OF PATCH WORDS USED IS 11 (DECIMAL) ******** 



0126377 
0126377 



-001- 16 XXX771 OWCONTINUE 

17 EOW 03E79O5O2 

-001- 18 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003170 ********** 



0126377 01 003171 137000 120124 0120124 H 



0120124 

0120124 07 001130 117447 007411 



0120126 07 001132 050400 126402 0126402 
0120130 07 001134 030400 043336 CTSD 

0120132 07 001136 024017 

0120133 07 001137 050400 126450 0126450 

0120135 07 001141 022017 

0120136 C7 001142 034400 043336 CTSD 

0120140 07 001144 037000 126451 0126451 
0120140 





21 


TAPEHL OW 


■001- 


22 


NOTE 




25 


TFAPCH2 BGN 


•001- 


26 


BL 


•001- 


27 


NOTE 


■001- 


28 


NOTE 


•001- 


31 


XXX777 PATC 




32 


CIRM 




34 


DPATCH NOTE 




35 


BNCL 




36 


LL 




37 


TBN 




38 


DPATCH NOTE 




39 


BNCL 




40 


ZBN 




41 


STL 




42 


DPATCH NOTE 




43 


BL 




44 


ENDP 


001- 


45 


NOTE 


001- 


46 


NOTE 



0(3171) # 13669 

************* THE FIRST ADDRESS OVERWRITTEN IS 003171 ********** 

0(1130) U 13669 

XXX777 

TFAPCH2 'CSECT' 

***************** PATCH AREA BEGINS AT 001130 **************** 



R2,STATST,S(REQUEST),M(REQUEST)/E(S(REQUEST)) H IS THIS STATUS 

REQUEST 
! CHANGE BNCL TO BNC 
NOSTAT 
R0,TCBADR+15 
R0,15 

! CHANGE BNCL TO BNC 
N02DAT 
R0,15 

R0,TCBADR+15 
! CHANGE BL TO B 
NOTRITE 

NR n 13669 

************ LAST PATCH ADDRESS USED IS 001145 *************** 
***** NUMBER OF PATCH WORDS USED IS 14 (DECIMAL) ******** 
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TAPE SUBROUTINES 
REQUEST PLANT SUBROUTINE 
0126401 



JSL 



01 
-001- 02 



EOW 

NOTE 



0:43:06 2/06/81 **** 

CTAPH W77D 

II 1366? 
*************** THE LAST ADDRESS OVERWRITTEN IS 003172 ********** 



0126401 01 003173 054047 



0126450 05 BC 
06 TAPEHL OH 
-001- 07 NOTE 



N02DAT #YES 

0(3174) # 1366? 

************* THE FIRST ADDRESS OVERWRITTEN IS 003174 ********** 



0126402 

0126402 01 003174 161100 

0126403 



-001- 



10 NOSTAT 

11 SBS 

12 EOW 

13 NOTE 



N(REQSTP)(RAO),S(REQSTP) 

# 1366? 
*************** THE LAST ADDRESS OVERWRITTEN IS 003174 ********** 



0126403 01 

0126404 01 

0126405 01 

0126406 01 

0126407 01 

0126411 01 

0126412 01 

0126413 01 
0126415 01 
0126417 
0126417 01 

0126421 01 

0126422 01 
0126423 

0126423 01 

0126424 01 

0126425 01 
0126427 01 

0126431 01 

0126432 01 

0126433 

0126433 01 
0126435 
0126437 

0126440 01 

0126441 01 
0126443 
0126443 
0126444 
0126445 



003175 024045 

003176 010447 

003177 030047 

003200 054011 0126417 

003201 017440 007403 

003203 055006 0126417 

003204 010403 

003205 003402 060000 
003207 034400 045266 LAYOUT 

003211 117440 007410 

003213 055012 0126433 

003214 004054 

003215 073024 

003216 140006 

003217 003402 003777 
003221 003422 003777 

003223 005020 

003224 004037 



01 
01 



0126447 01 



003225 102040 000217 
003227 017440 007404 

003231 010451 

003232 055003 0126443 

003233 002025 003777 

003235 124046 

003236 054004 0126450 

003237 002043 000017 
003241 044104 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

28 
29 
30 
31 
-001- 72 
33 
34 
35 
36 
37 
38 
3? 
40 
41 
42 
43 
44 
45 
46 
47 
48 
4? 



NOEOF 



TBN 

RRN 

ICF 

BC 

CIRM 

BNC 

RLN 

NI 

STL 

CIRM 



BNC 

* FIGURE OUT 

SN 

CALL 

BSAI 

L 

NI 

NI 

SR 

SN 

* NOW STORE 
NOLOKUP 

STM 
CIRM 
RLN 
BNC 
STM 
CMPOP 

TBN 
BC 
STM 
ST 



R2 / S(WRTABS) #CHECK FOR ABSOLUTE WRITE REQUEST 

R2,S (REQUEST) 

R2,S(ABWRT) 

NOEOF 

R2,WRITE,0,M(REQUEST)/ES (REQUEST) 

NOEOF 

RO,S(EOF) 

RO,M(EOF)+M(DEOF) 

RO,I_OBUF *SET UP END OF FILE BITS 

R2,BACKSP,0,M(REQUEST)/ES(REQUEST) 0CHECK IF THIS WAS A BACKSPACE 

REQUEST 
NOLOKUP ft NO 

WHAT TO REQUEST TO POSITION STATE TO EFFECT A BACKSPACE 
R2,(BACKSP-P0SITION) # SET UP POSITION STATE REQUEST 
STATSET #GET PRESENT TAPE POSITION 

SXTATSET # SUBROUTINE STATSET IS IN PROGRAM CTAPH 

RO,N(PHYBLK)(RAO) 



R0,M(PHYBLK) 
R1,M(PHYBLK) 
R1,R0 
R1,1 



#GET LOGICAL INDEX 

# DO BACKSPACE SUBTRACTION 



IN LOGICAL INDEX REQUEST BITS 

R2,0(RA0),M(REQ)+M(ABWRT) U PLACE REQUEST IN TCB. 

R2,P0SITI0N,0,M(REQ) 

R2,S (REQUEST) 

CMPOP 

R1,N(L0GBLKXRA0),M(L0GBLK) * STORE LOGICAL BLK NUMBER IN TCB. 

R2,S(TYPER) » CHECK IF ADR WORD IS IN DATA BLOCK. 

N02DAT 

R2,N(H0C0NPT)(RA0),M(H0C0NPT> U STORE CLIENTS I/O ENTRY POINT. 

R4 / N(C0NTLPT)(RA0) 
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TAPE SUBROUTINES 

REQUEST PLANT SUBROUTINE 

0126450 
0126450 

0126450 0'1 003242 156440 — 
0126451 

0126451 

0126451 01 003243 156441 

0126452 

0126452 

0126452 01 003244 156442 



B07 



01 N020AT 

02 RETURN 
-001- 03 BTSAGN 

04 NOTRITE 

05 RETURN 1 
-001- 06 BTSAGN 1 

07 NOTYET 

08 RETURN 2 
-001- 09 BTSAGN 2 



0:43:06 2/06/81 **** 
CTAPH W77D 
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• 

C07 


• ■ • • 


I 






0:43:06 2/06/81 **** 






TAPE SUBROUTINES 




CTAPH W77D 






TDC BUFFER LOADING ROUTINE 










0126453 


01 LOADBUF ^^ horos int<) CURRENT 0FF _ LINE T0C BUFFER. UPDATE COUNTERS. 








03 » AND EXIT 










04 K RAO MUST POINT TO TCB 








0126453 


05 BEGIN 








0126454 01 003246 040150 


-002- 06 HA 

07 L R6,N(TAPN0)(RA0> 

08 NI R6,M(TAPN0> 

09 LAL R2,TUENABL,RA0 

10 LX R9,R6(RA0) 

11 LL R2,TCBADR+N(BUFCT) 








0126455 01 003247 003542 000003 








0126457 01 003251 031042 020007 TOATA 

0126461 01 003253 042226 

0126462 01 003254 030440 043330 CTSO 


#GET ENABLE ADDRESS 






0126464 01 003256 003501 000077 


12 LI R4,WRDBUF-1 

13 RLN R2,6 

14 LAL R1,I 0BUF-1,RA0 

15 LAX R1,R2(RA0) 








0126467 01 C03261 031020 045265 LAYOUT 








0126472 

0126472 01 003264 103121 


16 KPSND 

17 LN R5,1 

18 LA R10,1(RA0) 


n PE BX CONSTANT 

U GET NEXT WORD TO BE OUTPUTTED. 






0126474 

0126474 01 003266 123400 


19 RELOD 

20 SIO 

21 LN R3,11 






' 


0126475 01 003267 003073 








0126476 

0126476 01 003270 136060 126476 0126476 


22 OUTHAIT 

23 BX R3,0UTWAIT 


mME FOR RESPONSE. 






0126500 01 003272 023500 


24 TIO 






■ 


0126501 01 003273 055006 0126507 

0126502 01 003274 036100 126472 0126472 
0126504 01 003276 037040 043330 CTSD 
0126506 


25 BNC TSTPE 

26 BX R4,KPSND 

27 A1S TCBADR+N<BUFCT) 

28 RETURN 
-001-29 BTSA6N 


lUSEND 32 ORDERS 

# UPDATE BUFFER COUNT 






0126507 

0126510 01 003302 003421 000005 
0126512 01 003304 055005 0126517 


33 TSTPE 

34 TMIO 

35 LI R1, ORDER 

36 BNC REM 

37 TBN R11,S(PPE> 








0126513 01 003305 024266 








0126514 01 003306 055003 0126517 


38 BNC REM 








0126515 01 003307 036120 126474 0126474 


39 BX R5, RELOD 






' 


0126517 


40 REM 








0126517 

0126517 01 003311 137020 126766 0126766 

0126521 


42 CALL REMOVTU 
-001- 43 BSA REMOVTU 

44 RETURN 1 
-001- 45 BTSAGN J 


• 




: 
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TAPE SUBROUTINES 
POPSTATE SUBROUTINE 
0126522 



0:43:06 2/06/81 **** 



0126522 
0126522 01 
012652* 01 

0126525 01 

0126526 01 
0126530 01 

0126532 01 

0126533 01 
0126534 
0126535 
0126536 
0126536 01 



01 
01 



003314 131000 043317 CTSD 

003316 040012 

003317 040033 

003320 003402 177760 
003322 003422 177760 

003324 010404 

003325 010424 

003326 044012 

003327 044033 

003330 056400 



-001- 



01 


POPSTATE 


02 


K 


THIS R 


03 


# 


STATE TO BE 


04 




BEGIN 


05 




LAL 


06 




L 


07 




L 


08 
09 




NI 
NI 


10 




RRN 


11 




RRN 


12 




ST 


13 




ST 


14 




RETURN 


15 




BTSA 



CTAPH 



ROUTINE WILL ROTATE THE STATE WORD OF THE TCB TO THE NEXT 



W77D 



EXECUTED. RAO SHOULD BE SET TO THE TCB ADDRESS. 
O 

RO TCBADR RAO 

ro'n(statewrdKrao) n OBTAIN state AND FLAG WORDS FROM TCB. 
R1,N(STATEFLG)(RA0) 
RO,-<X(F> 
R1,-X<F) 
R0,4 
R1,4 

RO,N(STATEWRD)(RAO) * PLACE NEW STATE AND FLAG WORDS INTO TCB. 
R1,N(STATEFLG)(RA0> 



* POP BOTH STATE AND FLAG. 
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TAPE SUBROUTINES 
PUSHSTAT SUBROUTINE 
0126537 



0126537 
0126537 01 

0126540 01 

0126541 01 

0126542 01 

0126543 01 

0126544 01 
0126546 01 

0126550 01 

0126551 01 
0126552 

0126552 01 



01 
02 
03 
04 

05 
06 



003331 
003332 
003333 
003334 
003335 
003336 
003340 
003342 
003343 

003344 



171420 

040052 

040073 

010454 

010474 

016040 000017 
016061 000017 

044052 

044073 

056420 



0:43:06 2/06/81 **** 
CTAPM W770 



PUSHSTAT 



THIS IS THE COMPLEMENT ROUTINE FOR SERVICING THE STATE WORD AND 
FLAG WORD IN THE TCB. RAO SHOULD POINT TO THE KB. RO IS STATE REQUEST 
A NEW STATE RO HILL BE PLACED INTO THE STATE STACK WORD. 
R1 SHOULD CONTAIN STATE FLAGS FOR TCB 

BEGIN 



# STORE NEW STATE REQUEST. 

* STORE NEW STATE FLAGS. 

X PLACE WORDS BACK INTO STORE. 



-001- 



07 


HA 




08 


L 


R2,N(STATEWRD)(RA0) 


09 


L 


R3,N(STATEFLG)(RA0) 


10 


RLN 


R2,4 


11 


RLN 


R3,4 


12 


IRM 


R2,R0,X(F) 


13 


IRM 


R3,R1,X(F) 


14 


ST 


R2,N(STATEWRD)(RA0) 


15 


ST 


R3,N(STATEFLG)(RA0> 


16 


RETURN 




17 


BTSAG 





COMMON TAPE HANDLER 

0:43:06 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH 



PR-1C957-50 
ISSUE 08 PAGE 



107 






,. F07 






TAPE SUBROUTINES 0:43:06 2/06/81 **** 

■ 






TU STATUS RETRIEVAL CTAPH W77D 






0126553 01 STATSET 






02 » THIS ROUTINE WILL SET UP RAO TO THE BASE TCB ADDRESS AND ALSO 






03 n SET UP RA1 TO THE BASe' TAPE STATUS ADDRESS. THE STATUS OF THE PR'FERED 






04 It TAPE UNIT IS IN R1 ON EXIT. RA1 POINTS TO STATUS WORO. 






05 ^RETURN INDICATES TAPE IS INSERVICE 






06 H RETURN 1 INDICATES TAPE IS OOS 






0126553 08 BEGIN ' 






0126553 01 003345 131420 043337 CTSD 0? LAL R1,TUSTAT,RA1 






0126555 01 003347 031020 043317 CTSD 10 LAL R1,TCBADR,RA0 






0126557 01 003351 040010 11 L R0,N(TAPNO) (RAO) 






0126560 01 003352 003402 000003 12 NI RO,M(TAPNO) 






0126562 01 003354 043420 13 LAX R1,R0(RA1> 






0126563 01 003355 024033 14 TBN R1,S(TSTATE) 






0126564 01 003356 054002 0126566 15 BC RTRNONE 






0126565 16 RETURN 






0126565 01 003357 056460 -001- 17 BTSAN 






0126566 18 RTRNONE 






0126566 1? RETURN 1 






0126566 01 003360 156461 -001- 20 BTSAN 1 






0126567 21 RETURN 




0126567 01 003361 056400 -001- 22 BTSA 






• 






■ 


















. 






■ 






' 












. 












. 


















■ 
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F 




TAPE SUBROUTINES 


0:43:06 2/06/61 **** 




• 


PTP UPDATE 


CTAPH H77D 






0126570 


01 UPDATSTAT 

02 # SUBROUTINE CALLED OUT-OF INTERRUPT TO UPDATE THE PRESENT 








03 U TAPE POSITION. MUST PROTECT ALL REGISTERS. R11=PRESENT TAPE POSITION 






0126570 


04 BEGIN 




; 


0126570 01 003362 171420 


-002- 05 HA 






0126571 01 003363 006040 


06 LR R2,R0 






0126572 01 003364 006101 


07 LR R4,R1 






0126573 


08 CALL STATSET # GET PRESENT TAPC STATUS OF PREFERRED UNIT. 






0126573 01 003365 073024 


-001- 09 BSAI SXTATSET K SUBROUTINE STATSET IS IN PROGRAM CTAPH 






0126574 01 003366 103060 


10 ZR R3 






0126575 01 003367 024035 


11 TBN R1,S(P0S0K) IMS THE PRESENT POSITION VERIFIED 






0126576 01 003370 055006 0126604 


12 BNC NOSEOER #N0 




_ 


0126577 01 003371 017261 003777 


13 CRM R11,R1,M(PTP> #IS INCOMING BLOCK EXPECTED 




■ 


0126601 01 003373 006061 


14 LR R3,R1 




. 


0126602 01 003374 054002 0126604 


15 BC NOfEQER #YES . 




. 


0126603 01 003375 026277 


16 SBN R11,S(SQERR) 




, 


0126604 


17 NOSEQER 






0126604 01 003376 104661 


18 AN R11,1 ^PREPARE FOR STOP AFTER BLOCK 






0126605 01 003377 002077 003777 


19 STM R3,N(LSTG0O0XRA0),M(LSTGO0D) 






0126607 01 003401 022275 


20 ZBN R11,S(P0S0K> 






0126610 01 003402 002660 123777 


21 STM R11,0<RA1),M(PTP)+tl(POSOK)+M(SQERR) 






0126612 01 003404 006002 


22 LR R0,R2 






0126613 01 003405 006024 


23 LR R1,R4 






0126614 


24 RETURN 






0126614 01 003406 056*20 


-001- 25 BTSAG . 




■ 

• ■ 

■' 


■ - 
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TAPE SUBROUTINES 
SPEED RESOLVING SUBROUTINE 
0126615 



0126615 

0126615 01 003407 140033 

0126616 01 003*10 024021 

0126617 01 003411 054007 0126626 

0126620 01 003412 037040 043332 CTSD 

0126622 01 003414 003024 MASACS 

0126623 01 003415 005020 

0126624 01 003416 054002 0126626 

0126625 

0126625 01 003417 056400 

0126626 

0126626 

0126626 01 003420 156460 



0:43:06 2/06/81 **** 



-001- 



-001- 



01 
02 
03 
04 

05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 



CTAPH 



W77D 



SPEEDTST 

* CHECK THE DISTANCE TO THE DESTINATION AND 
n SEARCH IS APPROPRIATE. ONLT ONE FAST SEARCH IS 

* CONTAIN THE DISTANCE. CF=0 ON EXIT INDICATES A 



0ONLV 



SLWRTN 



BEGIN 


() 




L 


R1,NCSTATEFLG)(RA0> 


TWO FAST 


SEARCHES ARE 


ALLOWED. 


TBN 


R1,1 




BC 


SLWRTN 




A1S 


TCBADR+N(STATEFLG) 


UN 


R1,FSTDIST 




SR 


R1,R0 


» TEST 


BC 


SLWRTN 




RETURN 






BTSA 




, 


RETURN 





» SLOW 


BTSAN 








DECIDE IF A 
ALLOWED. RO 
FAST SEARCH 



FAST 
WILL 



IF DISTANCE REQUIRES A FAST SEARCH 



SEARCH RETURN 
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TAPE SUBROUTINES 

DIRECTORY SEARCH ROUTINE 

0126627 

0126627 

0126627 01 003421 171420 

0126630 01 003422 031040 043200 CTSD 

0126632 01 003424 003221 

0126633 01 003425 053100 0126733 

0126634 

0126634 

0126634 01 003426 171420 

0126635 01 003427 003220 

0126636 01 003430 031040 045267 LAYOUT 

0126640 01 003432 014042 

0126641 01 003433 054071 0126732 



01 



0126642 01 

0126644 01 

0126645 01 

0126646 01 

0126647 01 
0126650 

0126650 01 

0126651 01 

0126652 01 

0126654 01 

0126655 01 
0126656 
0126657 
0126657 01 

0126660 01 

0126661 01 

0126662 01 

0126663 01 

0126664 01 

0126665 01 

0126666 01 

0126667 01 
0126671 01 

0126673 01 

0126674 01 

0126675 01 

0126676 01 
0126700 01 
0126702 01 

0126704 01 

0126705 01 
0126707 01 
0126710 01 



003434 003442 000377 

003436 010456 

003437 006062 

003440 010441 

003441 001443 

003442 103003 

003443 040460 

003444 003462 000007 

003446 006103 

003447 004501 

003450 003124 

003451 142145 

003452 004137 

003453 014146 

003454 054046 0126730 

003455 042564 

003456 020147 

003457 055051 0126736 

003460 004117 

003461 0:J0060 126657 0126657 
003463 031420 043317 CTSD 

003465 040025 

003466 044427 

003467 040026 

003470 002426 037777 
003472 002425 014000 
003474 002436 017777 

003476 010435 

003477 002430 000006 

003501 051410 

003502 055004 0126714 



0:43:06 2/06/81 **** 
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01 
02 
03 

-002- 04 
05 
06 
07 
08 
09 
10 

-002- 11 
12 
13 
14 
15 
16 
17 
18 
1? 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



DIRSRCHRES 

^ROUTINE TO SEARCH THE RESIDENT DIRECTORY FOR FILE DATA. 

BEGIN 

HA 

LAI R2,RESDIR,RA0 

LN R9,1 

B RESNUHB 

DIRSRCHIO 
(/ROUTINE TO SEARCH THE IOBUFER FOR DIRECTORY DATA 

BEGIN 



*FLAG FOR WHICH DIR. IS SEARCHED 



HA 
ZR 
LAL 
TZ 

BC 



R9 
R2,I_0BUF+N(DATA_AREA),RA0 



R2 

ERTN 



MULTIPLY THE NUMBER OF ENTRIES BY 



NI 
RLN 
LR 
RRN 
AR 
LOOKMORE 
LN 
L 

NI 
LR 
AN 
LN 



RELOAD 



LX 

SN 

TZ 

BC 

LX 

CR 

BNC 

SN 

BX 

LAL 

L 

ST 

L 

STM 

STM 

STM 

RRN 

STM 

TBS 

BNC 



R2,M(SYFILE> 

R2,2 

R3,R2 

R2,1 

R2,R3 

R0,3 

R3,0(RA1) 

R3,M(W0RDCNT) 

R4,R3 

R4,1 

R5,4 

R6,R5(RA0) 

R5,1 

R6 

ZERCHK 

R7,R4(RA1) 

R6,R7 

NOMCH 

R4,1 

R3, RELOAD 

R1,TCBADR,RA1 

R1,N(LST6LKKRA0> 

R1,N(LASTBLKXRA1> 

R1,N(FILSTRT)(RA0) 



MERE ANY FILES SPECIFIED IN DIRECTORY 
6 



«ALL ZERO DEFENSIVE CHECK 

* NUMBER OF WORDS MINUS ONE IN NAME 



INDEX INTO CLIENT NAME 
INDEX INTO DIRECTORY 



» GET CHARACTERS 

IflS NAME LESS THAN 4 WORDS LONG 

H GET CLIENTS WORD 
MATCH ? 



H GET NEXT WORD 

» SET UP TO STORE FILE INFO 

U GET LAST BLOCK IN FILE 

It STORE LAST BLOCK NUMBER AWAY 

U GET FIRST BLOCK 

R1>(PHYBLK)(RA1) / M(PHYBLK)+M(DUP)+M(TRACK) * STOR FILE INFO 

R1,N(VERTRK)(RA1),M(VERTRK) ^ESTABLISH VERIFY TRACK 

R1,N(0RIGIN)(RA1),M(0RIGIN> H SAVE ORIGINAL START OF FILE. 

R1,S(TAPNUM)-1 

R1 ,N (TAPNO) (RA1 ) ,M(TAPNO)*E (1 ) 

N(TAPN0)(RA1),S(TAPN0) 

ZROPN 
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i 



COB 



01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 



ZROPN 
MVCHK 



A1S 

I 

A1S 



TZ 
BNC 
LI 
LAL 
I.AL 
CALL 
BSAI 
RTNOKCOO 

RETURN 
BTSA6N 



TAPE SUBROUTINES 
DIRECTORY SEARCH ROUTINE 

0126711 01 003503 037040 060162 LAYOUT 

0126713 01 003505 053003 0126716 

0126714 > 

0126714 01 003506 137040 060161 LAYOUT 
0126716 

0126716 01 003510 114231 

0126717 01 003511 055010 0126727 

0126720 01 003512 003401 000111 CTSD 

0126722 01 003514 031220 045267 LAYOUT 

0126724 01 003516 031420 043200 CTSD 
0126726 

0126726 01 003520 073033 -001- 

0126727 
0126727 

0126727 01 003521 156440 -001- 

0126730 

0126730 01 003522 136000 126657 0126657 

0126732 

0126732 

0126732 01 003524 156441 -001- 

0126733 27 RESNUMB 
0126733 01 003525 103441 000110 CTSD 28 LI 

0126735 01 003527 053713 0126650 29 8 

0126736 31 

0126736 01 003530 141006 32 

0126737 01 003531 004052 33 

0126740 01 003532 014042 34 

0126741 01 003533 055707 0126650 35 

0126742 36 
0126742 01 003534 056441 -001- 37 



0:43:06 



2/06/81 **** 



MMT1F0 
MVCHK 

MMTOFO 



CTAPH 
* ADD TO PEG COUNT. TDC1 OPENED 



M ADD TO PEG COUNT. TDCO OPENED 



W77D 



#DOES 
#N0 



DIRECTORY NEED MOVING TO RESDIR? 



R9 

RTNOKCOO 

RO,TBLSIZ(RESDIR> 

R9,I_0BUF+N(DATA AREA), RAO ^PREPARE ADDRESS FOR MOVE 

R1, RESDIR, RA1 

MOVST H MOVE DIRECT ENTRY TO RESIDENT DIRECTORY 

MXOVST n SUBROUTINE MOVST IS IN PROGRAM CSYSUB 






19 ZERCHK 

20 

21 ERTN 

22 

23 



BX 



RO, RELOAD 



RETURN 1 
BTSAGN 1 



NOMCH 



LA 

SN 

TZ 

BNC 

RETURN 

BTSAGN 



LOOKMORE 



R0,6(RA0) 

R2,6 

R2 

LOOKMORE 

1 

1 
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*HAS AN ENTRY BEEN 


ALL 


EERO? 








#YES 






'.. 




SDIR>- 


1 DWORDS PER RESDIR 












H SET UP FOR NEXT ENTRY 

^DELETE ONE ENTRY SIZE 

fDONE WITH ALOTTED AREA 

ttuo 

U NO MATCH FOUND IN THIS DIRECTORY 












































PR- 


1C957- 


■50 




COVER 


SHEET CTAPH ISSUE 


08 


PAGE 


112 



• • 






DOS 









TAPE SUBROUTINES 



CRC XCR TABLE 



0126743 

0126743 01 

0126744 01 

0126745 01 

0126746 01 

0126747 01 

0126750 01 

0126751 01 

0126752 01 

0126753 01 

0126754 01 

0126755 01 

0126756 01 

0126757 01 

0126760 01 

0126761 01 

0126762 01 



303535 
003536 
003537 
003540 
003541 
003542 
003543 
003544 
003545 
003546 
003547 
003550 
003551 
003552 
003553 
003554 



000000 
146001 
154001 
012000 
170001 
036000 
024000 
162001 
120001 
066000 
074000 
132001 
050000 
116001 
104001 
042000 



01 XORTAB 






02 


VFD 


16,0 


03 


VFO 


2,3 2,0 


04 


VFD 


2,3 2,1 


05 


VFO 


2,0 2,1 


06 


VFD 


2,3 2,3 


07 


VFD 


2,0 2,3 


08 


vro 


2,0 2,2 


0? 


VFD 


2,3 2,2 


10 


VFD 


2 ' 2 \'\ 


11 


VFD 


2,1 2,2 


12 


VFD 


2,1 2,3 


13 


VFD 


2,2 2,3 


14 


VFD 


2,1 2,1 


15 


VFD 


2,2 2,1 


16 


VFD 


2,2 2,0 


17 


VFD 


2,1 2,0 



2,3 
2,2 
2,1 
2,0 
2,3 
2,2 
2,1 
2,0 
2,3 
2,2 
2,1 
2,0 
2,3 
2,2 
2,1 



5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 
5,0 



4,0 1,1 
4,0 1,1 
4,0 1,0 
4,0 1,1 
4,0 1,0 
4,0 1,0 
4,0 1,1 
4,0 1,1 
4,0 1,0 
4,0 1,0 
4,0 1,1 
4,0 1,0 
4,0 1,1 
4,0 1,1 
4,0 1,0 
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TAPE SUBROUTINES 
REMOVE TAPE FROM ACCESS ROUTINE 
0126763 

0126763 01 003555 171*20 

0126764 01 003556 003030 

0126765 01 003557 053023 0127010 

0126766 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 DGNRMV 

02 * ENTRY FOR DIAGNOSTIC REMOVAL OF TAPE UNIT. 
HA 

IN R1,DGN 
B PNTREMOV 

06 REMOVTU 

07 U PLACE THIS TAPE OUT OF ACCESS FROM V !S CC AND PRINTOUT 
» IF UNIT HAS NOT BEEN REMOVED. R6 CONTAINS TAPE NUMBER 



03 
04 
05 



08 



09 K R1 CONTAINS DICTIONARY WORD. 






0126766 

0126766 01 

0126767 01 
0126771 01 

0126773 01 

0126774 01 

0126776 01 

0126777 01 



C03560 171420 -002- 

003561 030400 043326 CTSD 
003563 003402 140000 

003565 055014 0127007 

003566 031040 043337 CTSD 

003570 043046 

003571 016402 003777 



-001- 



13 


BEGIN 


14 


HA 


15 


LL 


16 


NI 


17 


BNC 


18 


LAL 


19 


LAX 


20 


LRM 


22 TAPEHL 


ow 


23 


NOTE 



RO,TCBADR+N(DIAGBITS) 
RO,M(DIAGBITS) 
REFROM 

R2,TUSTAT,RA0 
R2,R6(RA0) U 

R0,R2,M(PTP) » 

0(3573) It 



SETUP RAO 

PRINT PRESENT TAPE POSITION OF FAILING 

TAPE. 

12230 



************* THE FIRST ADDRESS OVERWRITTEN IS 003573 ********** 



0127001 01 003573 037000 111707 0111707 



26 CPATCH BGNP 
-001- 27 BL 
-001- 28 NOTE 
-001- 29 NOTE 



0(255) H 12230 

XXX845 

CPATCH 'CSECT' 

***************** PATCH AREA BEGINS AT 000255 **************** 



0111707 

0111707 02 000255 106121 

0111710 

0111710 02 000256 037020 110023 CSYSUB 

0111712 

0111712 02 000260 137000 127003 0127003 



* SAVE DICTIONARY WORD 



-001- 32 XXX845 PATIMAREA 

33 LR R5,R1 

34 CALL BINXBCD 
-001- 35 BSA BINXBCD 

36 ENDP n 12230 

-001- 37 BL XXX848 

-001- 38 NOTE ************ LAST PATCH ADDRESS USED IS 000261 *************** 

-001- 39 NOTE ***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 



0127003 

0127003 01 003575 106241 

0127004 



-001- 42 XXX848 OWCONTINUE 

43 LR R10,R1 

** EOW n 12230 

-001- 45 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003575 ********** 
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TAPE SUBROUTINES 

REMOVE TAPE FROM ACCESS ROUTINE 



0127004 01 

0127005 01 

0127006 01 
0127007 
0127007 

0127007 01 
0127010 

0127010 01 

0127011 01 

0127013 01 

0127014 01 
0127016 01 



003576 061260 

003577 024053 

003600 055002 0127010 

003601 156441 

003602 172161 

003603 031600 123206 0123206 

003605 005177 

003606 037040 060160 LAYOUT 
003610 062340 



-001- 



0127017 01 003611 031600 127113 0127113 



-001- 



01 
02 

03 
04 
05 
06 
07 
08 
09 
10 
11 
12 

14 
15 
16 



SBS 
TBN 
BNC 

REFROM 

RETURN 
BTSAGN 

PNTREMOV 
GN 
LAL 
SR 
A1S 
ZBS 



TAPEHL 



LAL 

ow 

NOTE 



0(RAO),S(TSTATE> 
R2,S(TSTATE) . 
PNTREMOV 

1 
1 

R7,1 

R8, TAPEHL, RA1 

R7,RA1+1 

MMTOCAR 

O(RA0),S(REDON) 

R8,ERBLK,RA1 
0(3613) 



0:43:06 2/06/81 **** 
CTAPH W77D 



mis UNIT OOS 



0SET UP OFFSET PO. 

M PEG COUNT FOR AUTOMATIC TOC REMOVALS. 
(KCLEAR IN CASE SET. THIS IS ALSO OIAG PASS 
BIT 

* 12230 



************* THE FIRST ADDRESS OVERWRITTEN IS 003613 ********** 






0127021 01 003613 042605 
0127022 



0127022 



-001- 



1? 
20 
21 



24 



LX 

EOW 

NOTE 



PRINT 







-001- 


27 » 


MESSAGE PR' 






-001- 


28 n 


** 


ffl in 


0127022 01 


003614 073053 


-002- 


29 




BSAI 


0127023 01 


003615 104360 


-002- 


30 




VFD 


0127024 01 


003616 020150 


-002- 


31 




VFD 


0127025 01 


003617 021150 


-002- 


32 




VFD 


0127026 01 


003620 010242 TTYTDL 


-002- 


33 




VFD 


0127027 01 


003621 000035 137020 TTYTBL 


-002- 


34 




VFD 






-001- 


35 




NOTE 






-001- 


37 




NOTE 


0127030 






38 




CALL 


0127030 01 


003622 137020 127033 0127033 


-001- 


39 




BSA 


0127032 






40 




RETURN 


0127032 01 


003624 156440 


-001- 


41 




BTSAGN 



R8,R5(RA1) » LOAD UP ERROR DESIGNATION 

K 12230 
*************** THE LAST ADDRESS OVERWRITTEN IS 003613 ********** 

PRI0R=3,PACTI0N=**,FMT=(WRD(T,A,P,E),WRD(R,M,V),BCD,L_X,WRD,SKP,B 
CD,L_X),TIME=YES 

TOTYPE 

TAPE RMV nnnn xxxx WRD nnnn xxxx 
PXMRY U SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

1.1 2,0 1,0 3,4 1,0 1,1 1,1 2,3 1,0 3,0 
4,TTY0 SKP 4,TTY0 WRD 4,TTY0_L_X 4,TTY0_BCD 
4,TTY0" 4,TTY0 4,TTY0 L_X 4,TTY0_BCD 

5.2 117TXAPE 
5, 11,RXMV 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R6,R7,R8,R10,R11, 
****THIS MESSAGE WILL RESULT IN A MAJOR ALARM**** 
RMVLED 
RMVLED 
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TAPE SUBROUTINES 

ORDER SENDING, LED LIGHTING TAPE REHOVE ROUTINE. 



0:43:06 



2/06/81 



CTAPH 



W77D 



0127033 



01 RMVLED 

02 ft INITIALIZE OR MAINT. STOP TDC BEING REMOVED FROM SERVICE. MAINT 

03 * STOP MILL BE SEND IN THE EVENT THE TAPE IS MOVING WHEN REMOVE IS 

04 H EXECUTED. THIS WILL GUARD AGAINST TAPE-OFF-REEL CONDITION. ALSO 

05 tf SETS LED IN SSP TO INDICATE REMOVED TDC. 

06 If R6 MUST INDICATE UNIT BEING REMOVED AND 

07 H RAO MUST POINT TO TCB ADDRESS. 






0127033 

0127033 01 

0127034 01 

0127036 01 

0127037 01 
0127041 

0127041 01 

0127042 01 

0127043 01 

0127044 01 

0127046 01 
0127047 

0127047 01 
0127051 . 
0127051 
0127051 



003625 171420 

003626 031622 020007 TDATA 

003630 042626 

003631 003641 002015 

003633 073032 

003634 155005 0127047 

003635 024272 

003636 003641 040007 

003640 055003 0127051 

003641 103641 000215 



-001- 



01 003643 173032 



11 
-002- 12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
-001- 26 
27 
28 
-001- 29 



EMGf fP 
SEORDR 



BEGIN 

HA 

LAL 

LX 

LI 

CALL 

BSAI 

BNC 

TBN 

LI 

BNC 

LI 



R9,TUENA8L,RA1 

R9,R6(RA1> 

R10,TSTAT 

0RDEXCA8 

ordexCab 

EMGSTP 

R11,S(TIM> 

R10,INIT 

SEORDR 

R10,TMST0P 

ORDEXCAB 
ordexCab 



ft SET UP ENABLE ADDRESS. 
* GET. STATUS OF UNIT 

X SUBROUTINE ORDEXCAB IS IN PROGRAM CTAPH 
tf FAILURE OF ORDER MEANS SEND MAINT STOP. 
tf IS TAPE MOVING. 



CALL 

BSAI ordexCab tf SUBROUTINE ORDEXCAB IS IN PROGRAM CTAPH 

K NEXT RMV TAPE FROM SERVICE BY SETTING LED IN SSP. 
TAPEHL CM 0(3644) If 11914 

NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 003644 ********** 



0127052 

0127052 01 

0127053 01 

0127054 01 

0127055 01 

0127056 01 
0127057 



003644 106000 

003645 006000 

003646 006000 

003647 006000 
003650 006000 



32 TAKEOUT 5 

-001- 33 LR 0,0 

-001- 34 LR 0,0 

-001- 35 LR 0,0 

-001- 36 LR 0,0 

-001- 37 LR 0,0 

38 EOM If 11914 

-001- 39 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003650 ********** 



0127057 

0127057 01 003651 056420 



42 
-001- 43 



RETURN 
BTSAG 
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TAPE SUBROUTINES 
ERROR PRINTOUT ROUTINE 
0127060 



409 

0:43:06 2/06/81 **** 

CTAPH W770 

01 r'RNTER 

02 U A TAPE OPERATION HAS BEEN ABORTED. THIS ROUTINE WILL GENERATE THE 

03 * APPROPRIATE ERROR RESPONSE FOR THIS PARTICULAR ABORT. R1 SHOULD BE SET 

04 » TO THE REQUESTED ERROR PRINTOUT. 



0127060 

0127060 01 003652 171420 

0127061 01 003633 072161 

0127062 01 003654 031600 123206 0123206 

0127064 01 003656 005177 

0127065 01 003657 031600 127113 0127113 

0127067 01 003661 042601 

0127070 01 003662 040230 



08 



-001- 17 



BEGIN 



dfSET UP OFFSET PRINTOUT. 

H PLACE ERROR WRD IN R8 
H PLACE TAPE NUMBER IN R? 
U 12230 
NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 003663 ********** 



002- 09 




HA 




10 




GN 


R7,1 


11 




LAL 


R8,TAPEHL,RA1 


12 




SR 


R7,RA1+1 


13 




LAL 


R8,ERBLK,RA1 


14 




LX 


R8,R1(RA1) 


15 




L 


R9,N(TAPN0)(RA0> 


16 


TAPEHL 


OW 


0(3663) 



0127071 01 003663 037000 111767 0111767 



20 CPATCH BGNP 
-001- 21 BL 
-001- 22 NOTE 
-001- 23 NOTE 



0(335) * 12230 

XXX887 

CPATCH 'CSECT* 

***************** PATCH AREA BEGINS AT 000335 **************** 



0111767 

0111767 02 000335 131640 043337 CTSD 

0111771 02 000337 042411 

0111772 

0111772 02 000340 037000 127073 0127073 



-001- 26 XXX887 PATCHAREA 

27 LAL 

28 LX 

29 ENDP 
-001- 30 BL 
-001- 31 NOTE 
-001- 32 NOTE 



R10,TUSTAT,RA1 
R0,R9(RA1> 

n 12230 

yyyogo 

************ LAST PATCH ADDRESS USED IS 000341 *************** 

***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 



0127073 

0127073 01 003565 103402 003777 

0127075 



-001- 35 XXX889 OWCONTINUE 

36 NI R0,M(PTP) 

-001- 38 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 003666 ********** 



0127075 

0127075 01 003667 037020 110023 CSYSUB 

0127077 01 003671 106241 

0127100 



41 


CALL 


001- 42 


BSA 


43 


LR 


44 


PRINT 



BINX8CD 
BINXBCD 
R10 R1 

prior=3,paction=**,fmt=(wrd(t,a,p,e),wrd(o,p,e,r),wkd(a,b,t),l_x, 
wrd,l_x,bcd) 
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TAPE SUBROUTINES 
ERROR PRINTOUT ROUTINE 



0127100 01 003672 0730S3 

0127101 01 003673 104260 

0127102 01 003674 060140 

0127103 01 003675 021050 

0127104 01 003676 014242 TTYTBL 

0127105 01 003677 001517 TTYTBL 

0127106 01 003700 000001 TTYTBL 



0127107 01 003701 103641 040007 
0127111 

0127111 01 003703 073023 

0127112 

0127112 11 003704 156420 



0:43:06 



-001- 
-001- 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 
-001- 

-001- 



-001- 
-001- 



01 
02 
03 

04 
05 
06 
07 
08 
09 
10 

12 

13 
14 
15 
16 
17 



CTAPH 



2/06/81 **** 
M770 



MESSAGE PROTOTYPE 



** mm 
BSAI 
VFD 
VFO 
VFD 
VFD 
VFD 
VFD 
NOTE 

NOTE 

LI 

CALL 

BSAI 

RETURN 

BTSA6 



TAPE OPER AST xxxx WRD xxxx nnnn 

PXMRY If SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

1,1 2,0 1,0 3,4 1,0 1,1 1,0 2,3 1,0 3,0 

4,TTY0_L X 4,TTY0 WRD 4,TTY0 L X 4,TTY0 WRD 

4,TTY0 4\TTY0 4,TTY0 4,TTY0~BCD 

5,3 11,TXAPE 

5, 11,0XPER 

5 11 AXBT 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 

CONTAINED IN GENERAL REGISTERS R7,R8,R?,R10, 
****THIS MESSAGE WILL RESULT IN A MAJOR ALARM**** 
R10,INIT 
ORDEXCNT 
ordexCnt * SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 



0127113 

0000000 

0127113 01 003705 001437 TTYTBL 

0000001 

0127114 01 003706 001440 TTYTBL 

0000002 

0127115 01 003707 001412 TTYTBL 

0000003 

0127116 01 003710 001510 TTYTBL 

0000004 

0127117 01 003711 001571 TTYTBL 

0000005 

0127120 01 003712 001521 TTYTBL 

0000006 

0127121 01 003713 001516 TTYTBL 

0000007 

0127122 01 003714 001545 TTYTBL 

0000020 

0127123 01 003715 000014 TTYTBL 



21 
22 
23 

-001- 24 
25 
26 

-001- 27 
28 
29 

-001- 30 
31 
32 

-001- 33 
34 
35 

-001- 36 
37 
38 

-001- 39 
40 
41 

-001- 42 
43 
44 

-001- 45 
46 
47 

-001- 48 



ER8LK 

FATLREAD EQU 
SPELL 
VFD 

FATLWRIT EQU 
SPELL 
VFD 

BASETO EQU 

SPELL 
VFD 

NORESP EQU 

SPELL 
VFD 

TURER EQU 

SPELL 
VFD 

ORDER EQU 

SPELL 
VFD 

OORADR EQU 

SPELL 
VFD 

SEQERR EQU 

SPELL 

VfD 

EQU 

SPELL 

VFD 



DGN 



vr~ERBLK 

MRY,<F,A,T,L,R,E,A,D) 

5, 11,fatlrEad 

*-£RBLK 

MRY,(F,A,T,L,W,R,I,T) 

5, 11,fatlwRit 

*-ERBLK 

MRY,(B,A,S,E,T,0) 

5, 11,BXASET0 

*-ERBLK 

MRY,(N,0,R,E,S,P) 

5, 11,NX0RESP 

*-ERBLK 

MRY,(T,U,R,E,R) 

5, 11,TXURER 

*-ERBLK 

MRY,(0,R,D,E,R) 

5, 11,0XRDER 

*-ERBLK 

MRY,(0,O,R,A,D,R) 

5, 11,0X0RADR 

*-ERBLK 

MRY,CS,E,Q,E,R,R) 

5, 11,SXEQERR 

*-ERBLK 

MRY,(D,G,N) 

5, 11,DXGN 
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TAPE SUBROUTINES 
TIME CHECK ROUTINE 
0127124 



C09 



01 TIMOUTCK 

02 * CHECK IF TIME OUT HAS OCCUREO. RAO*TCBAOR 

03 K RETURN 1=N0 TIMEOUT 

04 H RETURN 0-TIMEOUT HAS OCCURED 



0:43:06 2/06/81 **** 
CTAPH W77D 



0127124 

0127124 

0127125 

0127126 

0127126 

0127126 01 

0127127 

0127130 

0127130 01 
0127131 
0127131 

0127131 01 



01 
01 



01 



003716 171420 

003717 040014 

003720 073037 

003721 155002 0127131 

003722 056441 

003723 156440 



08 
-002- 09 

10 

11 
-001- 12 
-002- 13 

14 

15 
-001- 16 

17 RTNZR 

18 
-001- 19 



BEGIN 

HA 

L 

CHKTIM 

CALL 

BSAI 

BNC 

RETURN 1 

BTSA6N 1 



RETURN 
BTSAGN 



R0,N<TIMEK)<RA0) GET TIME CONSTANT 



TIMCHK 

TXIMCHK 

RTNZR 



n HAS TIMOUT OCCURRED? 

* SUBROUTINE TIMCHK IS IN PROGRAM CSYSUB 



# CF»1 TIMOUT 
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TAPE SUBROUTINES 
CRC CHECK ROUTINE 
0127132 



0:43:06 



2/06/81 **** 



CTAPH 

01 CRCCHK 

02 K THIS ROUTINE HILL SCAN THE TAPE UNIT TO CHECK IF A CRC ERROR 

03 K HAS OCCURRED. IF ONE EXISTS THE RECOVERY SUBSTATE WILL BE INITIATED 

04 H AND VARIOUS KEY TCB WORDS ARE SAVED FOR THE RESTORATION OF THE 

05 H INTERRUPTED FUNCTION IF RECOVERY IS SUCCESSFUL. 



W77D 



0127132 

0127132 01 

0127133 01 
0127135 

0127135 01 

0127136 01 

0127137 01 
0127140 01 
0127141 
0127141 
0127142 
0127142 
0127142 01 
0127144 
0127144 01 



01 



003724 171420 

003725 003641 002015 

003727 073023 

003730 154007 0127145 

003731 051120 

003732 055002 0127142 

003733 073045 



003734 137020 127155 0127155 
003736 156441 



09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 SETCOV 

20 
-001- 21 

22 
-001- 23 



-002- 



-001- 



-001- 



8E6IN 

HA 

LI 

CALL 

BSAI 

BC 

TBS 

BNC 

CALL 

BSAI 

CALL 
8SA 

RETURN 
BTSAGN 



R10,TSTAT 

ORDEXCNT 0SEND TAPE STATUS COMMAND. 

ordexCnt H SUBROUTINE ORDEXCNT IS IN PROGRAM CTAPH 

NOCRCER ^RETURN = NO ERROR. 

N(MAINT)(RAO),S(MAINT) #IS ERROR RECOVERY IP. 

SETCOV #N0 

POPSTATE #YES LET IT GAIN CONTROL. 

popstAte « SUBROUTINE POPSTATE IS IN PROGRAM CTAPH 



CRCEREC 
CRCEREC 
1 

1 



* SET UP RECOVERY SUBSTATE IF REQUIRED. 
#FLAG ERROR HAS OCCURRED. 



0127145 

0127145 01 003737 130660 045266 LAYOUT 

0127147 

0127147 01 003741 037020 126570 0126570 

0127151 

0127151 01 003743 173024 

0127152 01 003744 161720 

0127153 01 003745 062220 

0127154 

0127154 01 003746 056440 



29 
30 
31 
32 
33 
34 
35 
36 
-001- 37 



-001- 
-001- 



27 NOCRCER 

28 If NO ERROR HAS 
LL 

CALL 
BSA 
CALL 
BSAI 
SBS 
ZBS 

RETURN 
BTSAGN 



RESULTED. UPDATE TAPE STATUS AND EXIT. 

R11,I_0BUF #GET ADDRESS BLK JUST WRITTEN 

UPDATSTAT 

UPDATSTAT 

STATSET 

SXTATSET * SUBROUTINE STATSET IS 

0(RA1),S(P0S0K) *SET POSITION KNOWN BIT 

N(SRFAL)(RAO),S(SRFAL) 0CLEAR CRC FAIL BIT. 







IN PROGRAM CTAPH 
IN STATUS WORD. 
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TAPE SUBROUTINES 
ERROR RECOVERY SETUP ROUTINE. 
0127155 



J22_ 



0:43:06 



2/06/81 >*** 



CTAPH 

01 CRCEREC 

02 U THIS ROUTINE HILL SET UP THE RECOVERY STATE AND ASSOCIATED 

03 # CONTROL WORDS IF REQUIRED. IF THE RECOVERY STATE IS ALREADY ACTIVE, 

04 # MINIMAL CLEAN UP IS DONE AND RETURN IS EXECUTED. 



W77D 



0127155 

0127155 01 003747 171420 

0127156 01 003750 061220 

0127157 01 003751 040007 

0127160 01 003752 003402 140000 

0127162 01 003754 054002 0127164 

0127163 

0127163 01 003755 056420 

0127164 

0127164 01 003756 103641 040007 
0127166 

0127166 01 003760 073023 

0127167 01 003761 103100 

0127170 01 003762 044111 

0127171 01 003763 051120 

0127172 01 003764 054022 0127214 

0127173 01 003765 061120 

0127174 01 003766 040012 

0127175 01 003767 035400 043311 CTSD 
0127177 01 003771 040013 

0127200 01 003772 044401 

0127201 01 003773 040015 

0127202 01 003774 044403 

0127203 01 003775 040005 

0127204 01 003776 044404 

0127205 01 003777 040006 

0127206 01 004000 044402 

0127207 01 004001 003002 

0127210 01 004002 044012 

0127211 01 004003 044113 

0127212 01 004004 040017 

0127213 01 004005 044405 

0127214 

0127214 
0127214 

0127214 01 004006 173022 

0127215 01 004007 U00003 

0127216 01 004010 144014 

0127217 01 004011 003401 000006 
0127221 





08 


BEGIN 




, 


-002- 


• 09 


HA 








10 


U CHECK IF DIAG IP 






11 


SBS 


N(SRFAL)(RAO),S(SRFAL) *L06 CRC FAILURE. 




12 


L 


RO,N(DIAGBITS)(RAO) 






13 


NI 


RO,M(DIAGBITS) 






14 


BC 


NORMTCB 






15 


RETURN 






■001- 


16 

17 


BTSAG 
NORMTCB 








18 


LI 


R10,INIT 






19 


CALL 


ORDEXCNT 




-001- 


20 


BSAI 


ordexCnt 


» SUBROUTINE ORDEXCNT IS IN PR 




21 


ZR 


R4 






22 


ST 


R4,N(BUFCT)<RA0> 






23 


TBS 


N(MAINT)(RAO),S(MAINT> #IS RECOVERY ALREADY ACTIVE 




<!4 


BC 


JUSTEXIT 






25 


SBS 


N(MAINT)(RAO),S(MAINT) 




26 


H SAVE KEY RESTORAL CONTROL WORDS. 






I? 


L 


RO,N(STATEWRD)(RAO) 






2( 


STAL 


R0,MTCSV,RA1 






29 


L 
ST 

L 


RO,N(STATEFLG)(RAO) 

R0,N(SVFLGXRA1> 

R0,N(LSTCOM)<RA0) 






id 


ST 


R0,N(SVC0M)(RA1> 






ii 


L 


R0,N(LOGBLK)(RA0) 






34 


ST 


R0,N(SVINDXXRA1> 






35 


L 


RO,N(PHYBLK)(RAO) 






36 


ST 


R0,N(SVBASE)(RA1) 






if 


LN 


RO, REREAD 


«TART SUBSTATE SETUP 




38 


ST 


RO,N(STATEWRD)(RAO) 






S9 


ST 


R4,N(STATEFLGXRA0> 






40 


L 


R0,N(LSTG0OD)(RAO> 






41 


ST 


R0,N(SVLSTG00D)(RA1; 






42 


JUSTEXIT 








43 


BGNTIM 


MSEC=STPTIM 




001- 


44 


CALL 


TIMOUT 




002- 


45 


BSAI 


TXIMOUT 


U SUBROUTINE TIMOUT IS IN PROGf 


001- 


46 


DATA 


3 


tf TIMOUT+1 




4/ 


ST 


R0,N(TIMEK)<RA0) 


(KSET UP TIME FOR INIT 




48 


LI 


RO,TIMST 






4V 


CALL 


PUSHSTAT 
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TAPE SUBROUTINES 

ERROR RECOVERY SETUP ROUTINE. 



0127221 01 004013 073044 
0127222 

0127222 01 004014 156420 



001- 01 


BSAI 


pushsTat 


02 


RETURN 




001- 03 


BTSAG 





0:43:06 2/06/81 **** 
CTAPH W770 
* SUBROUTINE PUSHSTAT IS IN PROGRAM CTAPH 
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TAPE SUBROUTINES 
TAPE RECOVERY MESSAGE 
0127223 



API — — 

0:43:06 2/06/81 **** 

CTAPH W770 

01 PTREC 

02 THIS ROUTINE PRINTS THE REPORT OF A TAPE RECOVERY ATTEMP AND 

03 * INDICATES WHAT TYPE OF ERROR PROMPTED SUCH ACTION. R8 CONTAINS THE 
OA # DICTIONARY WORD SPECIFYING THE TYPE OF PROBLEM ENCOUNTERED. RAO MUST 
05 It POINT TO TCB. 



0127223 

0127223 01 

0127224 01 

0127225 01 
0127227 01 

0127230 01 

0127231 01 

0127233 01 
0127234 

0127234 01 
0127235 

0127235 01 



004015 171420 

004016 072161 

004017 031400 123206 0123206 

004021 005177 

004022 040007 

004023 003402 140000 

004025 054002 0127235 

004026 056420 

004027 140150 



-002- 



09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 DOPO 
20 

21 TAPEHL 
001- 22 



--•U1 



BEGIN 

HA 

GN 

LAL 

SR 

L 

NI 

BC 

RETURN 

BTSAG 

I 

OW 
NOTE 



R7,1 

RO, TAPEHL, RA1 

R7,RA1+1 *SET UP OFFSET PRINTOUT 

RO,N(DIAGBITS)(RAO) #IS DIAG IP 

RO,M(DIAGBITS) 

DOPO 



R6,N(TAPN0)(RA0> 
0(4030) 



» GET TAPE NUMBER WORD 
H 12230 



0127236 01 004030 037000 111762 0111762 



0111762 

0111762 02 000330 131620 043337 CTSD 

0111764 02 000332 042406 

0111765 

0111765 02 000333 037000 127240 0127240 



0127240 

0127240 01 004032 103402 003777 

0127242 



-001- 
-001- 
-001- 



-001- 



-001- 
-001- 
-001- 



-001- 



-001 



25 CPATCH BGNP 

26 BL 

27 NOTE 

28 NOTE 



************* THE FIRST ADDRESS OVERWRITTEN IS 004030 ********** 

0(330) * 12230 

XXX971 

CPATCH 'CSECT* 

***************** PATCH AREA BEGINS AT 000330 **************** 



31 
32 
33 
34 
35 
36 
37 



XXX971 PATCHAREA 



LAL R9,TUSTAT,RA1 

LX R0,R6(RA1) 

ENDP n 12230 

BL XXX973 

NOTE ************ LAST PATCH ADDRESS USED IS 000334 *************** 

NOTE ***** NUMBER OF PATCH WORDS USED IS 5 (DECIMAL) ******** 



40 XXX973 OWCONTINUE 

41 NI RO,M(PTP) 

42 EOW * 12230 

43 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 004033 ********** 



COMMON TAPE HANDLER 

0:43:06 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH 



PR-1C957-50 
ISSUE 08 PAGE 



123 
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TAPE SUBROUTINES 

TAPE RECOVERY MESSAGE 

0127242 

01272*2 01 004034 037020 110023 CSYSUB 



01 CALL 
-001- 02 BSA 

03 TAPEHL OW 
-001- 04 NOTE 



0:43:06 



2/06/81 **** 
W770 



CTAPH 

BINXBCD 

BINXBCD 

0(4036) n 12230 

************* THE FIRST ADDRESS OVERWRITTEN IS 004036 ********** 



0127244 01 004036 106221 
0127245 



07 


LR 


08 


EOW 


001- 09 


NOTE 



R9,R1 K PRINT FAILING BLOCK NUMBER. 

K 12230 
*************** THE LAST ADDRESS OVERWRITTEN IS 004036 ********** 



0127245 



0127245 01 004037 073053 

0127246 01 004040 100260 

0127247 01 004041 100150 

0127250 01 004042 021042 

0127251 01 004043 010242 TTYTBL 

0127252 01 004044 000340 TTYTBL 

0127253- 

0127253 01 004045 156420 



12 



•001- 


14 n 


MESSAGE PR 


■001- 


15 * 


mm 


•002- 


16 


BSAI 


■002- 


17 


VFD 


•002- 


18 


VFD 


002- 


19 


VFD 


002- 


20 


VFD 


002- 


21 


VFD 


001- 


22 


NOTE 




24 


RETURN 


001- 


25 


BTSAG 



PRINT PRI0R*3, FMT=<WRD(T,A,P,E),WRD(R,C,0,V,R,Y>,BCD,LJ(,WRD,BCD) 



TAPE RCOVRY nnnn xxxx WRD nnnn 

PXMRY * SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

1.1 2,0 1,0 3,0 1,0 1,1 1,0 2,3 1,0 3,0 
4,TTY0_BCD 4,TTY0_WRD 4,TTY0 L X 4,TTY0 BCD 
4,TTY0_ 4,TTY0 4,TTY0 4,TTY0~ 

5.2 11,T*APE - - - 
5 11 RXCOVRY 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9, 
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TAPE SUBROUTINES 
TU STATUS CLEAR ROUTINE 
0127254 



C01 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 CLRSTAT 

02 It THIS ROUTINE HILL ZERO OUT THE PRESENT TAPE POSITION KNOWN BIT IN 

03 It EACH STATUS WORD OF THE DEFINED TDCS. 

04 It R6 MUST BE EQUAL TO THE NUMBER OF DEFINED UNITS-1 . 



0127254 
0127254 
0127255 
0127257 
0127257 
0127260 
0127261 
0127263 
0127263 



01 004046 171420 -002- 

01 004047 03 1 400 043337 CTSD 

01 004051 162720 

01 004052 041401 

01 004053 036140 127257 0127257 

01 004055 056420 -001- 



08 


BEGIN 




09 


HA 




10 


LAL 


R0,TUSTAT,RA1 


11 CLRIT 








Z8S 


0(RA1),S(P0S0K> 




LA 


R0,URA1) 




BX 


R6, CLRIT 




RETURN 






8TSAG 
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TAPE SUBROUTINES 
TAPE STATUS CHECK ROUTINE 
0127264 



JSL 



0:43:06 2/06/81 **** 






CTAPH 



W77D 



01 CHKTSTAT 

02 n THIS ROUTINE WILL ADDRESS THE TAPE UNIT POINTED TO BY R6 

03 U TO CHECK FOR A BIT POINTED TO BY R5. RETURN O-THE BIT IS SET 

04 » RETURN 1=N0T SET OR ORDER FAILED 



0127264 

0127264 01 

0127265 01 
0127267 01 
0127270 01 
0127272 

0127272 01 

0127273 01 
0127274 
0127274 

0127274 01 
0127275 

0127275 01 

0127276 01 

0127277 01 
0127300 
0127300 01 



004056 171420 -002- 

004057 031402 020007 TDATA 

004061 042626 

004062 003641 002015 

004064 073032 -001- 

004065 154002 0127275 

004066 156441 -001- 

004067 172673 

004070 024665 

004071 055775 0127274 

004072 056440 -001- 



08 


BEGIN 


■ 


09 


HA 




10 


LAL 


R0,TAPETBL+1,RA1 


11 


LX 


R9,R6(RA1) 


12 


LI 


R10,TSTAT 


13 


CALL 


ORDEXCAB 


14 


BSAI 


ordexCab 


15 


BC 


SUCED 


16 NORTN 






17 


RETURN 


1 


18 


BTSAGN 


1 


19 SUCED 






20 


HN 


R11,11 


21 


TBR 


R11,R5 


22 


BNC 


NORTN 


23 


RETURN 





24 


BTSAGN 






# GET ENABLE ADDRESS. 

# SUBROUTINE ORDEXCAB IS IN PROGRAM CTAPH 

tf CHECK IF REQUESTED BIT SET. 
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TAPE SUBROUTINES 
COMPLIMENT TAPE NUMBER IN TCB 
0127301 



E01 



0:43:06 2/06/81 **** 
CTAPH W77D 



02 ^ROUTINE TO COMPLIMENT AND STORE TAPE NUMBER IN THE TCB. 

03 l RAO MUST POINT TO TCB AND R6 MUST BE TAPE NUMBER IN TCB 



0127301 

0127301 01 004073 103544 000001 

0127303 01 004075 044150 

0127304 01 004076 031460 043337 CTSO 

0127306 01 004100 043466 

0127307 , • 
0127307 01 004101 056400 



07 


BEGIN 


03 


XI 


09 


ST 


10 


LAL 


11 


LAX 


12 


RETURN 


001- 13 


BTSA 





R6,1 

R6,N<TAPN0)(RA0> 
R3,TUSTAT,RA1 
R3,R6(RA1) 



(KSET R3*PTP RA1«STAT WORD R6«TAPN0. 
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TAPE SUBROUTINES 
TAPE STATUS OUTPUT MESSAGE 
0127310 



0127310 01 
0127312 01 

0127314 01 

0127315 01 
0127316 

0127316 01 

0127317 01 

0127320 01 

0127321 01 
0127322 

0127322 01 
0127324 01 

0127326 01 

0127327 01 

0127330 01 

0127331 01 

0127332 01 

0127333 01 

0127334 01 

0127335 01 

0127336 01 

0127337 01 
0127340 01 
0127341 
0127342 
0127342 



01 



004102 131400 043337 CTSO 

004104 030502 020006 TDATA 

004106 004117 

004107 003140 

004110 142524 

004111 024133 

004112 055002 0127322 

004113 026544 

004114 136100 127316 0127316 
004116 030502 020006 TDATA 

004120 040560 

004121 040601 

004122 004116 

004123 014104 

004124 054010 0127342 

004125 040622 

004126 040643 

004127 004116 

004130 014104 

004131 054003 0127342 

004132 040664 

004133 040705 



0127342 01 004134 173053 

0127343 01 004135 102200 

0127344 01 004136 063146 

0127345 01 004137 021146 

0127346 01 004140 010033 TTYTBL 

0127347 01 004141 000242 TTYTBL 

0127350 

0127350 01 004142 156463 TTYTBL 



-001 • 
-001' 
-002- 
-002- 
-002- 
-002- 
-002- 
-002- 
-001- 



-001- 



JSL 



01 RPTTAPE 

02 ROUTINE TO SEVICE THE REPTtTAPE! MESSAGE 



0:43:06 



CTAPH 



2/06/81 **** 
M77D 



03 

06 

07 NXTSTAT 

08 

09 

10 

11 

12 NOSET 

13 



LAL 
LL 

SN 
ZR 

LX 
TBN 
BNC 
SBR 



14 

15 
16 
17 
18 
19 



22 

23 
24 
25 
26 

27 
26 

30 
31 
32 
33 

34 
35 
36 
37 

38 

40 
41 



PRNTIT 



BX 
LL 

L 

L 

SN 

TZ 

BC 

L 

L 

SN 

TZ 

BC 

L 

L 



R0,TUSTAT,RA1 

R4,TAPETBL 

R4,1 

R6 

R5,R4(RA1) 
R5,S(TSTATE) 
NOSET 
R6,R4 

R4,NXTSTAT 

R4,TAPETBL 

R7,0<RA1) 

R8,1(RA1) 

R4,2 

R4 

PRNTIT 

R9,2(RA1) 

R10,3(RA1> 

R4,2 

R4 

PRNTIT 

R11,4(RA1> 

R12,5(RA1) 



*GET EQUIPPED TDCS 



*GET TAPE STATUS 

iCUNIT OOS? 

#N0 

#FLAG OOS CONDITION 



PRINT PACTION** FMT«(WRD<R,E,P,T>,HRD(T,A,P,E),L_X,L_X,L_X,L_X,L_X,L_X> 



* MESSAGE PROTOTYPE 
K M mm 

BSAI 



VFD 
VFD 
VFD 
VFD 
VFD 
NOTE 

RETURN 
BTSAN 



REPT TAPE xxxx xxxx xxxx xxxx xxxx xxxx 
PXHR I „ - * SUBROUTINE PMRY IS IN PROGRAM TTYAPP 

1.1 2,0 1,0 3,2 1,0 1,1 1,0 2,0 1,0 3,0 
4,TTY0_L X 4,TTY0_L_X 4,TTY0 L X 4,TTY0 L X 
4,TTY0_ ?,TTY0_ 4,TTY0 L X 4,T?Y0 LX *" 

5.2 11,RXFPT 
5, 11,TXAPE 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6,R7,R8,R9,R10,R11, 

TTY>F 
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TAPE SUBROUTINES 
BOUNDRY CHECK 
0127351 



G01 



0:43:06 2/06/81 **** 
CTAPH W77D 



02 9 THIS SUBROUTINE IS USED TO ASSURE THAT A CLIENT DOES NOT ACCESS 

03 * ANY BLOCK OUT OF THE OPENED PILE. THIS WILL BE ACTIVE ON ALL WRITES 

04 » AND REAOS. RAO POINTS TO TCBADR, RETURN 0=RANGE OK, RETURN 1- OUT OF RANGE. 



01 



0127351 
0127351 
0127352 01 

0127354 01 

0127355 01 

0127356 01 
0127360 01 

0127362 01 

0127363 01 
0127364 

0127364 01 
0127365 

0127365 01 
0127366 

0127366 01 

0127367 01 

0127371 01 

0127372 01 
0127373 

0127373 01 



004143 171420 

004144 031420 045266 LAYOUT 

004146 040027 

004147 040440 

004150 003442 017777 
004152 003422 017777 

004154 005022 

004155 054003 0127366 

004156 103026 

004157 056441 

004160 140036 

004161 003422 017777 

004163 005041 

004164 055772 0127364 

004165 056440 





08 


BEGIN 




-00?- 


09 


HA 






10 


LAL 


R1,I 0BUF,RA1 




11 


L 


R1,nTLASTBLK)(RA0) 




12 


L 


R2,N(BLKADR)(RA1> 




13 


NI 


R2,M(BLKADR)+M(TRCK> 




14 


NI 


R1,M(BLKADR>+M(TRCK> 




15 


SR 


R1,R2 




16 


BC 


OKYET 




17 EKK 








18 


LN 


R1,00RADR 




19 


RETURN 


1 


-001- 


20 

21 OKYET 


BTSAGN 


1 




22 


L 


R1,N(0RIGINXRA0) 




23 


NI 


R1,M(BLKADR)+M<TRCK> 




24 


SR 


R2,R1 




25 


BNC 


EKK 




26 


RETURN 





-001- 


27 


BTSAGN 






# GET LAST BLOCK OF FILE. 

n I/O BUFFER BLOCK NUMBER OF ACTIVE BLOCK. 
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-A2L 



TAPE SUBROUTINES 
RESET DUPLICATE BIT 
0127374 

0127374 

0127374 01 004166 171420 

0127375 01 004167 031000 043317 CTSO 

0127377 01 004171 062326 

0127400 

0127400 01 004172 056420 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 RSTDUP 

02 K THIS CODE HILL SIMPLY RESET THE DUPLICATE BIT IN TC8. 



05 BEGIN 

-002- 06 HA 

07 LAL R0,TCBADR,RA0 

08 ZBS N(DUP)(RA0),S(DUP> 

09 RETURN 
-001- 10 BTSA6 



• 
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TAPE SUBROUTINES 
ON-LINE TOC REPORT ROUTINE 
0127401 



B02 



0:*3:06 2/06/81 **** 
CTAPH W77D 



01 STATONL 

02 « THIS CODE WILL REPORT IN RO WHICH TDC IS BEING USED. 



0127*01 

0127*01 01 004173 171420 

0127402 01 004174 030400 043327 CTSD 

0127404 

0127404 01 004176 056420 



05 


BEGIN 




002- 06 


HA 




07 


LL 


RO/TCBADR+N(TAPNO) 


08 


RETURN 




001- 09 


BTSAG 
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C02 



TAPE SUBROUTINES 
OOS SCAN ROUTINE 
0127405 






0127405 
0127405 
0127406 
0127410 
0127411 
0127413 
0127413 
0127414 
0127416 
0127417 
0127421 
0127421 
0127422 
0127422 
0127422 



01 



004177 171420 -002- 

004200 031542 020006 TOATA 

004202 004157 

004203 031400 043337 CTSD 

004205 142406 

004206 003402 044000 

004210 055004 0127422 

004211 036140 127413 0127413 

004213 056440 -001- 

004214 156441 -001- 



. 












. 
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0:43:06 2/06/81 


TRADE SECRET - 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 STATWRQ 

02 » RETURN IF ALU UNITS ARE IN 100 PERCENT GOOD SHAPE 

03 « RETURN 1 IF ANT UNIT IS IN DIFFICULTY. 



06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



NXTLX 



BOO 



BEGIN 

HA 

LAL 

SN 

LAL 

LX 

NI 

BNC 

BX 

RETURN 

BTSAGN 

RETURN 
BTSAGN 



R6,TAPETBL,RA1 

R6,1 

R0,TUSTAT,RA1 

R0,R6(RA1) 

RO,M(REDON)+M(TSTATE) 

BOO 

R6,NXTLX 







^NUMBER OF DEFINED UNITS MINUS ONE 



*GET STATUS OF A UNIT 
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TAPE SUBROUTINES 

SUBROUTINE TO JAM THE TAPE TO 1 OR 
0127423 



0127423 

0127423 01 004215 171420 

0127424 01 004216 031040 043327 CTSO 
0127426 01 004220 016040 000003 

0127430 01 004222 044040 

0127431 

0127431 01 004223 056420 



0:43:06 2/06/81 **** 
CTAPH M77D 



-002- 



-001' 



01 
02 
03 
04 
05 
06 
07 
08 
0? 
10 
11 
12 



# A JAM THE TAPE UNIT SPECIFIED IN THE TCB TO THE CONSTANT SPECIFIED 
M IN RO 

ft ENTRY CONDITIONS-RO-TO TAPE UNIT TO BE JAMED INTO THE TCB 
H EXIT CONDITIONS-NONE 
BEGIN 



HA 

LAI 

IRM 

ST 

RETURN 

BTSAG 



R2,TCBADR+N(TAPN0),RA0 

R2 / R0,M<TAPN0) 

R2,0(RA0) 
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TAPE SUBROUTINES 
SUBROUTINE TO SET MAINT. STATE 
0127432 



E02 



0:43:06 2/06/81 
CTAPH 



W77D 



01 SETMAINT 

02 * SET MAINT BIT IN THE KB AND MARK TAPE POSITION UNKNOWN 



0127432 

0127432 01 004224 171420 



06 BEGIN 
-002- 07 HA 

08 TAPEHL OW 0(4225) (K3E790646 

-001- 09 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 004225 ********** 



0127433 01 004225 037000 112301 0112301 



0112301 

0112301 02 000647 131000 043326 CTSD 

0112303 02 000651 061340 

0112304 02 000652 031000 043337 CTSD 

0112306 02 000654 062320 

0112307 

0112307 02 000655 037000 127435 0127435 

0127435 

0127435 01 004227 162321 

0127436 

0127436 

0127436 01 004230 056420 



-001- 
-001- 
-001- 



12 CPATCH BGNP 

13 BL 

14 NOTE 

15 NOTE 



0(647) (K3E790646 

XXX1051 

CPATCH 'CSECT' 

***************** PATCH AREA BEGINS AT 000647 **************** 



-001- 18 XXX1051 PATCHAREA 

1? LAI RO,TCBADR+N(DIAGBITS),RAO 

20 SBS 0(RAO),S(DIAGBITS) 

21 LAL RO,TUSTAT,RAO 

22 ZBS 0(RAO),S(POSOK) 

23 ENDP ME790646 

24 BL XXX1053 

25 NOTE ************ LAST PATCH ADDRESS USED IS 000656 *************** 

26 NOTE ***** NUMBER OF PATCH WORDS USED IS 8 (DECIMAL) ******** 



-001- 
-001- 
-001- 



-001- 
-001- 

-001- 



29 XXX1053 OWCONTINUE 

30 ZBS 1(RA0),S(P0S0K) 

31 EOW /K3E790646 

32 NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 004227 ********** 



35 
36 



RETURN 
BTSAG 
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TAPE SUBROUTINES 

SUBROUTINE TO CLEAR MAINT. STATE 
0127437 



IBL 



01 CLRMAINT 

02 # CLEAR MAINT BIT IN THE TCB 



0:43:06 2/06/81 **** 
CTAPH W770 



0127437 

0127437 01 004231 171420 

0127440 01 004232 031000 043326 CTSO 

0127442 01 004234 062340 

0127443 

0127443 

0127443 01 004235 056420 



06 BE6IN 
-002- 07 HA 

08 TAPEHL OH 0(4232) * 13055 

-001- 09 NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 004232 ********** 



12 

13 

14 

-001- 15 



18 
-001- 19 



LAL 
ZBS 

EOW 
NOTE 



RETURN 
BTSAG 



RO,TCBADR+N(DIAGBITS),RAO 
0(RA0),S(DIAGBITS) 

» 13055 
*************** THE LAST ADDRESS OVERWRITTEN IS 004234 ********** 
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TAPE SUBROUTINES 
ERROR RECOVERY ALLOW ROUTINE 
0127444 






602 






0:43:06 2/06/81 **** 



. 






03 


-. 






04 




. 




05 




.. 




06 


0127444 






m 


0127444 01 004236 




-002- 


11 


0127445 01 004237 


031400 043324 CTSO 




1? 


0127447 01 004241 


062740 




13 


0127450 01 004242 


003402 040000 




14 


0127452 






15 


0127452 01 004244 


056420 


-001- 


16 



CTAPH 

01 ALWERRCV 

02 * ALLOW ERROR RECOVERY PROCEDURES ON TAPE AFTER THEY HAVE BEEN 
" » INHIBITED BY THE INHERRCV SUBROUTINE. 

H ENTRY CONDITIONS-NONE 

* EXIT C0NDITI0N-CF=1 MEANS ERROR RECOVERY WAS NOT INHIBITED 

* CF=0 MEANS ERROR RECOVERY WAS INHIBITED 



W77D 






BEGIN 

HA 

LAL 

ZBS 

NI 

RETURN 

BTSAG 



R0,TCBADR+N(ERNA),RA1 

0(RA1),S(ERNA> 

R0,ES(ERNA) 
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TAPE SUBROUTINES 
ERROR RECOVERY INHIBIT ROUTINE 
0127453 



A03 



0:43:06 2/04/81 **** 
CTAPH W77D 



01 INHERRCV 

02 # INHIBIT ERROR RECOVERY PROCEDURES ON TAPE 

03 it ENTRY CONliITIONS-NONE 

04 it EXIT CONDITION-CF-1 MEANS ERROR RECOVERY WAS NOT INHIBITED 

05 U CF=0 MEANS ERROR RECOVERY WAS INHIBITED 



0127453 

0127453 01 004245 171420 

0127454 01 004246 031400 043324 CTSD 

0127456 01 004250 061740 

0127457 01 004251 003402 040000 
0127461 

0127461 01 004253 056420 



09 


BEGIN 


002- 10 


HA 


11 


tAL 


12 


SBS 


13 


NI 


14 


RETURN 


001- 15 


BTSAG 



R0,TCBADR+N(ERNA),RA1 

0(RA1),S(ERNA) 

RO,ES(ERNA> 
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B03 



• 



TAPE SUBROUTINES 

SUBROUTINE TO GIVE BLOCK INFORMATION ON FILES 
0127462 



0127462 

0127462 01 004254 171420 

0127463 01 004255 031040 043317 CTSD 



10 
-002- 11 
12 
13 
14 



-001- 



0127465 01 004257 040056 
0127466 



0127466 01 
0127470 01 

0127472 01 

0127473 01 
0127475 01 
0127477 01 
0127500 01 

0127502 01 

0127503 01 

0127504 01 

0127505 01 

0127506 01 
0127507 

0127507 01 
0127510 
0127510 01 

0127512 01 

0127513 01 

0127514 01 

0127515 01 
0127517 01 
0127520 01 
0127521 
0127521 
0127522 

0127522 01 

0127523 01 

0127524 01 



01 



004260 016462 014000 
004262 003442 003777 

004264 040107 

004265 016524 014000 
004267 003502 003777 

004271 040017 

004272 003402 003777 

004274 020065 

004275 055005 0127510 

004276 005102 

004277 006024 

004300 005002 

004301 056420 

004302 103421 000527 MASACS 

004304 005022 

004305 001424 

004306 040126 

004307 017123 014000 

004311 055003 0127522 

004312 005002 

004313 056420 

004314 105100 

004315 006001 

004316 005004 



22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 

-001- 35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

-001- 45 
46 
47 
48 
49 



0:43:06 2/06/81 **** 
CTAPH W77D 



01 BLKDATA 

02 # THIS SUBROUTINE MILL RETURN INFORMATION ABOUT THE SIZE OF A 

04 # ENTRY CONDITIONS-NONE 

05 * EXIT CONDITIONS-RO*PRESENT LOGICAL POSITION IN FILE 

06 M R1=LAST LOGICAL BLOCK 



BEGIN 
HA 

LAL R2,TCBADR,RA0 H SET UP TCB 
TAPEHL OW 0(4257) * 13057 

NOTE ************* the FIRST ADDRESS OVERWRITTEN IS 004257 ********** 



17 

18 

-001- 19 



L 

EOW 

NOTE 



R2,N(0RIGIN)(RA0> 

n 13057 
*************** THE LAST ADDRESS OVERWRITTEN IS 004257 ********** 



LRM 

NI 

L 

LRM ■ 

NI 

L 

NI 

CR 

BNC 

SR 

LR 

SR 

RETURN 

BTSAG 
TWOTRKS 

LI 

SR 

AR 

L 

CRM 

BNC 

SR 

RETURN 

BTSAG 
SECNDTRK 

SR 

LR 

SR 



R3,R2,M(TRACK> 

R2,M(PHYBLK) 

R4,N(LASTBLK)(RA0) 

R5,R4,M(TRACK) 

R4,M(PHYBLK) 

R0,N(LSTGOOD)(RA0) 

RO,M(PHYBLK) 

R3,R5 

TWOTRKS 

R4,R2 

R1,R4 

R0,R2 



R1,BLKMAX 

R1,R2 

R1,R4 

R5,N(TRACK)<RA0> 

R5,R3,M(TRACK) 

SECNDTRK 

R0,R2 



n R2=FIRST BLOCK OF FILE 



* R4=LAST BLOCK OF FILE 

n R0=PHISCAL BLOCK POSITION 
U IS THIS FILE ON ONE TRACK? 



K R1=LAST LOGICAL BLOCK 

If RO=PRESENT LOGICAL POSITION IN FILE 



n THIS FILE EXISTS ON 2 TRACKS 

* IS TRACK SAME AS ORIGINAL BLOCK? 

* RO=PRESENT LOGICAL POSITION IN FILE 



R4,R0 
R0,R1 
R0,R4 
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C03 



TAPE SUBROUTINES 

SUBROUTINE TO GIVE BLOCK INFORMATION ON FILES 

0127525 

0127525 0.1 004317 056420 



0112234 

0112234 02 000602 150000 125610 0125610 

0112236 02 000604 031000 043317 CTSD 

0112240 02 000606 061376 

0112241 02 000607 037000 125610 0125610 

0112243 





01 


RETURN 


-001- 


02 


BTSAG 




03 


CPATCH BGNP 


-001- 


04 


NOTE 


-001- 


05 


NOTE 




08 


CLNTRTN 




0? 


BCL 




10 


OEPATCH NOTE 




11 


LAL 




12 


SBS 




13 


BL 




14 


DEPATCH NOTE 




15 


ENDP 


-001- 


16 


NOTE 


-001- 


17 


NOTE 



0:43:06 2/06/81 **** 
CTAPH W770 



0(602) * 12274 

CPATCH 'CSECT' 

***************** PATCH AREA BEGINS AT 000602 **************** 



ENOINT 

CHANGE ABOVE "BCL" TO "BC". 

RO,TCBADR,RAO 

N(5MRTN) (RA0),S(5MRTN) 

ENOINT 

CHANGE ABOVE "BL" TO "B". 

n 12274 
************ LAST PATCH ADDRESS USED IS 000610 *************** 
***** NUMBER OF PATCH WORDS USED IS 7 (DECIMAL) ******** 



0112243 



23 



INDEXGEN 



001- 


27 


K 


SECTIO 


001- 


28 


ft 


OPEN MACRO 


001- 


29 


n 


CLIENT CONTROL MACROS 


001- 


30 


n 


BLOCK HEADER STORAGE 


001- 


51 


« 


TAPE CONTROL BLOCK 


001- 


32 


If 


MAINTENANCE SAVE BLOCK 


001- 


33 


If 


TAPE UNIT ENABLES 


001- 


34 


n 


TAPE DIRECTORY BLK 1000 


001- 


35 


n 


DIRECTORT BLOCK 


001- 


36 


tt 


TAPE STATUS 


001- 


37 


H 


TAPE UNIT COMMAND LAYOUT 


001- 


38 


tt 


TAPE STATUS REGISTER. 


001- 


39 


It 


CONSTANTS 


001- 


40 


If 


MAIN TCB HANDLER 


001- 


41 


ft TAPE 


HANDLER 


001- 


42 


tt 


BASE HANDLER TASK DISPENSOR 


001- 


43 


If 


CLOSE STATE INITIAL ENTRY 


001- 


44 


ft 


READ STATE INITIAL ENTRY 


001- 


45 


H 


READ 1 BLOCK STATE INITIAL ENTRY 


001- 


46 


If 


WRITE STATE INITIAL ENTRY 


001- 


47 


tt 


MRF STATE INITIAL ENTRY 


001- 


48 


tt 


COPY STATE INITIAL ENTRY 


001- 


49 


tt 


MAIN BASE LEVE TAPE STATES 



ADDRESS WORD COUNT 
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000000 





000000 





000000 





000000 





000000 





000000 





000000 





000000 





000000 





000000 





000000 





000000 





000000 





000000 2256 




000151 


26 


000203 


13 


000220 


11 


000233 


3 


000236 


12 


000252 


16 


000272 


12 


000306 
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D03 



TAPE SUBROUTINES 









-001- 


01 tt 


-001- 


02 # 


-001- 


03 n 


-001- 


04 n 


-001- 


05 n 


-001- 


06 tt 


-001- 


07 # 


-001- 


os n 


-001- 


o? n 


-001- 


10 n 


-001- 


11 n 


-001- 


12 ft 


-001- 


13 It 


-001- 


14 ft 


-001- 


15 It 


-001- 


16 ft 


-001- 


U ft 


-001- 


18 # 


-001- 


19 It 


-001- 


?0 * 


-001- 


21 It 


-001- 


22 tt 


-001- 


23 It 


-001- 


24 Of 


-001- 


25 ft 


-001- 


26 # 


-001- 


27 # 


-001- 


28 ft 


-001- 


29 # 


-001- 


30 * 


-001- 


31 ft 


-001- 


32 # 


-001- 


33 tt 


-001- 


34 » 


-001- 


35 It 


-001- 


36 # 


-001- 


37 # 


-001- 


38 tt 









READ STATE 

SIEZURE STATE 

VERIFT STATE 

TIMING SUBSTATE 

POSITIONING SUBSTATE 

WRITE SEGMENT OF TAPE HANDLER 

TAPE RECOVERY FROM MRF 

COPY TAPE TO TAPE ROUTINE 

MAINT STATE-REREAD 

TAPE REPACK STATE. 

TAPE INTERRUPT LEVEL PROGRAMING 

TTY INPUT HANDLING RESTORAL 

REMOVE TAPE ROUTINE. TTY REQUEST HANDLER 

EMERGENCY TCB INIT. PCtiflNE 

PERIODIC REPACK ROUTINE 

OPEN TCB SUBROUTINE 

ORDER EXECUTION ROUTINE 

RFO'.'EST PLANT SUBROUTINE 

TDC BUFFER LOADING ROUTINE 

PCPSTATE SUBROUTINE 

PUSHSTAT SUBROUTINE 

TU STATUS RETRIEVAL 

PTP UPDATE 

SPEED RESOLVING SUB'.OUTINE 

DIRECTORY SEARCH ROUTINE 

CRC XOR TABLE 

REMOVE TAPE FROM ACCESS ROUTINE 

ORDER SENDING, LED LIGHTING TAPE REMOVE ROUTINE. 

ERROR PRINTOUT ROUTINE 

CRC CHECK ROUTINE 

ERROR RECOVERY SETUP ROUTINE. 

TAPE RECOVERY MESSAGE 

TU STATUS CLEAR ROUTINE 

TAPE STATUS CHECK ROUTINE 

COMPLIMENT TAPE NUMBER IN TCB 

TAPE STATUS OUTPUT MESSAGE 

BOUNDRY CHECK 

RESET DUPLICATE BIT 



-001- 42 tt THE TOTAL LENGTH OF THIS ASSEMBLY IS 02256 
43 TAPEHL MAXSIZE 0,4320 





0:43:06 2/06/81 **** 




CTAPH 


W77D 


( 


000306 


78 




000424 


70 




000532 


131 




000735 


6 




000743 


108 




001117 


206 




001435 


46 




001513 


34 




001555 


204 




002071 


44 




002145 


327 




002654 


39 




002723 


25 




002754 


11 




002767 


5 




002774 


77 




003111 


25 




003142 


67 




003245 


39 




003314 


13 




003331 


12 




003345 


13 




003362 


21 




003407 


10 




003421 


76 




003535 


16 




003555 


40 




003625 


21 




003652 


42 




003724 


19 




003747 


38 
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PATCH HISTORr 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/012274/*/*/*/* 



0112243 



J8L 



0:43:06 2/06/81 **** 
CTAPH W77D 



-002- 01 PBEGIN PR06=CTAPH TRN0=12274 SERN0B=63047 

02 # FIX PROBLEM IN TAPE INTERRUPT CODE THAT CAUSES TAPE REMOVAL ON TAPE AUDIT. 

03 n THIS PATCH IS NEEDED FOR PAGING 

04 TCEND 

-001- 05 NOTE ************************************************************** 



*/*/*/*/012230/*/*/*/* 



0112243 



-002- 12 PBEGIN PROG*CTAPH TRN0=12230 SERNOB-63638 

13 * FIX ERROR IN TAPE RMV OUTPUT MESSAGE WHICH PRINTS WRONG DICTIONARY 

14 * WORD. 

15 TCEND 

-001- 16 NOTE ************************************************************** 



*/*/*/*/012376/*/*/*/* 



0112243 



-002- 23 PBEGIN PROG=CTAPH TRNO-12376 SERNOB-62215 

24 K FIX TO OPENM ROUTINE TO PERMIT AN OPEN EXPLICIT. 

25 TCEND 

-001- 26 NOTE ************************************************************** 
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PATCH 


HISTORY 


LISTING OF 


INDIVIDUAL PATCHES 






*/*/*/*/011798/*/*/*/* 


0112243 




*/*/*/*/01 1 914/*/*/*/* 


0112243 




. 



*/*/*/*/012648/*/*/*/* 



0112243 









COHMON TAPE HANDLER 
0:43:06 2/06/81 TRADE SECRET 



E03_ 

0:43:06 2/06/61 **** 
CTAPH W77D 

-002- 01 PBEGIN PROG-CTAPH TRNO-11798 SFRN0B«62113 

02 # FIX BA ERROR IN THE TAPE HANDLER CAUSED BY PATCH 63047. 

03 TCEND 

-001- 04 NOTE ************************************************************** 



-002- 11 PBEGIN PROG=CTAPH TRN0=11914 SERNOB-61018 

12 » THIS PATCH CHECKS EACH BASE LEVEL LOOP TO MAKE SURE THE «*-oiuio 

13 # TDC LAMP ON THE SSP SHOW THE CORRECT STATE OF THE TDC'S. 

14 TCEND 

-001- 15 NOTE ************************************************************** 



-002- 22 PBEGIN PROG=CTAPH TRNO-12648 SERNOB-61392 

23 n FIX A PROBLEM WITH A REWIND ON A COPY ROTINE HHEN THE DEOF 

24 # BIT APPEARS. 

25 TCEND 

-001- 26 NOTE ************************************************************** 
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PATCH 


HISTORY 


LISTING OF 


INDIVIDUAL PATCHES 






*/*/*/*/013055/*/*/*/* 


0112243 




*/*/*/*/01 3001 /*/*/*/* 


0112243 




*/*/*/*/012808/*/*/*/* 


0112243 







603 



0:43:06 



2/06/81 **** 
W77D 



-002- 



-001 



-002- 



-001 • 



CTAPH 

01 PBEGIN PROG"=CTAPH TRNO*13055 SERNOB=59698 

02 # THIS PATCH HILL ALLOW THE CORRECT BIT TO BE SET TO 

03 ft PERFORM A LOD:0MAS;BOOT. 

04 ft THE BIT SET < DIAGBITS) WILL PUT THE CU TO BE LOADED 

05 n IN A MAINTENANCE STATE. 

06 tt THIS PATCH COORDINATES WITH TC 48839 

07 TCEND 

Og NOTE ************************************************************** 



15 PBEGIN PROG=CTAPH TRNO-13001 

16 tf THIS PATCH STORES A NEW TIME CONSTANT IN THE 'TIMEK* WORD 

17 # OF THE TCB, AFTER THE TEST FOR CONTROLING TDC. 



SERN0B=49285 



18 
19 



TCEND 
NOTE 



************************************************************** 



-002- 26 
27 
28 
29 
30 
31 

-001- 32 



PBEGIN PROG-CTAPH TRNO-12808 SERN0B*61529 

THIS PATCH CHECKS THE BLK REdUESTED TO SEE IF IT IS ZERO 
AND IF THE TRK IS 2 , 3 ,0R 4 IF THIS IS FOUND TO BE TRUE, 
TAPE OPERATION WILL BE ABORTED. 
ABORT MESSAGE: TAPE OPER ABT BLK ERR 

TCEND 

NOTE ************************************************************** 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

t */*/*/*/013057/*/*/*/* 

0112243 



A04. 

0:43:06 2/06/81 **** 
CTAPH W77D 

-002- 01 PBEGIN PROG«CTAPH TRN0«13057 SERN08=59187 

02 » THIS PATCH ALLOWS SUBROUTINE BLKDATA TO WORK CORRECTLY. 

03 TCEND 

-001- 04 NOTE ************************A*********(v*(v************************* 









*/*/*/*/013537/*/*/*/* 



0112243 



-002- 11 PBEGIN PROG=CTAPH TRNO-13537 SERN0B=49718 

• 12 H HIGH INCIDENTS OF BASE LEVEL TIME OUT(BASETO) BY 

13 * THE TAPE HANDLER (DURING AUDIOTAPE FUNCTION) . 

14 H TEMPORARY FIX TO REDUCE BASE LEVEL TIME OUT BY 

15 * INCREASING 'TIMOUT' TIME CONSTANT FROM 5 TO 10 

16 TCEND 

-001- 17 NOTE *****************************************************#*****,►*» 



*/*/*/*/013596/*/*/*/* 



0112243 



TRN0>=13596 SERNOB-50102 



-002- 24 PBEGIN PROG"=CTAPH 

25 n EOF BIT BEING SET BY TAPEHL ERRONEOUSLY IN MIDDLE OF 

26 * TRNSLN FILE. THIS CAUSES CIPL TO SKIP A 4K BLOCK OF 

27 # DATA WHEN BOOTSTRAPPING. 

28 * INSERT TRACK NUMBER TO BE COMPARED ALSO. 

29 TCEND 

-001- 30 NOTE ************************************************************** 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/013669/*/*/*/* 



0112243 



ML 



0:43:06 



2/06/61 **** 
W77D 



002- 


01 






0? 


n 




03 


» 




04 


» 




05 


# 




06 




001- 


07 





CTAPH 

PBEGIN PROG-CTAPH TRNO-13669 SERN0B=49741 

THIS PATCH WILL NOT ALLOW THE DIAGNOSTIC PROGRAM 
TO BE ABORTED BY THE TAPE HANDLER PROGRAM WHEN TAPE 
DIAGNOSTICS ARE BEING RUN. 
THIS PATCH MUST FOLLOW TR 13668 PATCH 49569 

NOTE ************************************************************** 



*/*/*/*/013214/*/*/*/* 



0112243 



-002- 14 



18 
-001- 19 



PBEGIN PROG=CTAPH TRNO-13214 SERNOB-50271 

15 » RST:TAPE INPUT REQUEST ACCEPTED DURING TAPE DIAGNOSTIC. 

16 U WHEN RST:TAPE IS REQUESTED ,CHECK FOR TAPE DIAGNOSTICS 

17 # OR TAPE AUDIT, IF INPROGRESS GIVE RETRY LATER (RL). 
TCEND 
NOTE ************************************************************** 



*/*/*/*/01 4090/*/*/*/* 



0112243 



-002- 



-001- 



26 
27 
28 
29 
30 



PBEGIN PROG=CTAPH TRN0«14090 SERN0B=52288 

n SUBROUTINE REQR HAS A BAD MASK WHEN 'NOCLINT' IS THE CLIENT 
U CORRECT THE MASK 

TCEND 

NOTE ************************************************************** 
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PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/013058/*/*/*/* 



0112243 



■ 






C04 



0:43:06 2/06/81 **** 



CTAPH 



W77D 



TRNO-13058 SERN0B=56871 



-002- 01 PBE6IN PROG«CTAPH 

02 K THIS PATCH REMOVES TEMPORARY CODE WHICH PREVENTS 

03 It A REPACK FROM HAPPENING DURING A INIT TAPE. 

04 # TAPE REMOVAL DOING AN INIT TAPE. 

05 n BEFORE REMOVING THE TAPE SEND TFR COMMAND AS MANY AS 

06 n FOUR TIMES TO BRING TAPE TO BOT. 

07 TCEND 

-001- 08 NOTE ************************************************************** 



0112243 



15 



END 
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PATCH HISTORY 
VALUE T NAME 



30046304 
0112301 
0127435 
0114736 
0123223 
0120074 
0120114 
0113547 
0124407 
0113706 
0115006 
0112243 
0125405 
0113436 
0126066 
0114242 
0126253 
0121575 
0126302 
0112260 
0126377 
0120124 
0111707 
0127003 
0111767 
0127073 
0111762 
0127240 
0000201 

0027762 
0000003 
0000001 
•CTAPH" 

0000000 


•ALU' 

0000002 
0000010 



.STOP 

XXX1051 

XXX1053 

XXX369 

XXX371 

XXX384 

XXX397 

XXX466 

XXX468 

XXX495 

XXX505 

XXX576 

XXX578 

XXX655 

XXX658 

XXX705 

XXX726 

XXX733 

XXX735 

XXX768 

XXX771 

XXX777 

XXX845 

XXX848 

XXX887 

XXX889 

XXX971 

XXX973 

XBITCNT 

U XBOP 

A XCHKTRX 
XCLAS 
XMAXWRD 
XNAMEX 
X0RGX2 
XOWX 
XPFTX 
XSAVREGS 
XT 
XTA1X 



J 
•PRUNE 1,1, 



XTCHEAOX 



• • 



DO* 



DEF/REF 



ATTRIBUTES AND REFERENCES 



0:43:06 2/06/81 **** 
CTAPH W77D 



134-18 

134-29 

24-39 

25-06 

31-20 

32-16 

58-37 

59-01 

65-34 

67-27 

79-25 

79-36 

89-23 

89-45 

96-26 

97-18 

98-07 

98-16 

102-01 

102-16 

102-31 

114-32 

114-42 

117-26 

117-35 

123-31 

123-40 



139-04 



134-13 
134-24 

24-34 

25-01 

31-15 

32-11 

58-32 

58-42 

65-29 

67-22 

79-20 

79-31 

89-18 

89-40 

96-21 

97-13 

98-02 

98-11 
101-44 
102-11 
102-26 
114-27 
114-37 
117-21 
117-30 
123-26 
123-35 
1-08 
1-08 

(IBNUM=10 
LIBNUM=10 



1-08 
1-08 



1-10 



24-30 31-11, 31-42, 32-06, 37-19, 58-28, 65-02, 67-11, 68-13, 69-07, 79-16, 79-45, 81-02, 81-12, 
83-22, 85-30, 86-01, 86-18, 87-35, 88-28, 89-14, 90-33, 95-08, 95-29, 96-17, 97-43, 98-28, 
101-18,101-40,102-22,103-07,114-23,115-16,116-29,117-17,123-22,124-04,134-09,135-09,138-14 
1-10 
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PATCH HISTORY 
VALUE T NAME 






E04 



DEF/REF ATTRIBUTES AND REFERENCES 



0:43:06 2/06/81 **** 
CTAPH W77D 



TT- 



" T, T XUSX 



0000001 
CTVTAB 

U 

TTYTBL 
TTYTBL 
CTVTAB 

14 

CTVTAB 



14 P 



CTVTAB 



14 



CTVTAB 

14 

TTYTBL 
0004320 
0000000 
0004000 
0010000 
0000000 

CBLH 
0124547 
0113727 
0124264 
0124267 
0125212 
0125154 
0124535 
0124274 
0125156 
0127444 
0113716 
0124615 
0123710 
0000007 

TTYTBL 



XUSING12 

XUSING14 

XWRDCNT 

clr_wRds 

clr xRdsX 

SYSUB 

fatlrEad 

fatlwRlt 

ordexCab 
ordexCabX 
TAPH 
ordexCnt 

ordexCntX 

TAPH 

popstAte 

popstAteX 

TAPH 

pushsTat 

pushsTatX 

TAPH 

AXBT 

AAX 

ABWRT 

ACCO 

ACC1 

ACTIV 

ACTMSF 

ADBKTM 

ADBKTM 

ADBX 

ADD 

ADDPOS 

ADDTIM 

ADD1 

ADIV 

ADSET 

ALWERRCV 

AMRF 

ATLOGEND 

ATSYSDIR 

AUDITFN 

BXASETO 



XC 



71-23 
118-27 



XC 



xc 



xc 



xc 



LIBNUM=10 1-08 

LIBNUM=12 31-40, 90-26, 92-17, 93-13 

LIBNUM=12 

71-23, 88-19,118-24 
118-27 
LIBNUM=12 25-38, 26-29, 36-29, 64-31, 76-30,116-17,116-26,126-14 

LIBNUM=12 

118-15;i20-13,121-20' "'"' * 9 "° 2 ' 5 °" 42 ' "~ U ' "' 34 ' 5S "* 8 ' 6 °" 19 ' *°~ 29 ' * 1 " 26 ' 73 " 36 ' 



LIBNUM=12 
LIBNUM=12 

LIBNUM=12 
LIBNUM=12 



39-48, 43-41, 50-29, 51-38, 52-10, 62-48,120-18 
36-23, 37-36, 46-07, 84-48, 98-18,122-01 



LIBNUM=12 
97-01 97-01,118-09 

LIBNUM=5 1-08 

H=1 S=7 N=0 CL*3 LIBNUM=10 



13-20 
21-18 
21-19 
20-13 
4-06 
61-28 
66-03 
55-24 
55-27 
74-28 
73-39 
61-13 
55-32 
73-44 
136-01 
65-42 
62-32 
45-32 
21-26 
41-36 



59-09, 59-10,103-18,103-40 



H=1 S=15 N=0 CL*3 
89-28 
61-16, 65-43, 66-06, 76-32 

55-29 
55-25 
68-40 
51-32 
61-05 
55-35 

5-43 
65-37 

43-35 
89-38 
41-36,118-30 
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• 


• 
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F04 


• 






PATCH HISTORr 


0:43:06 2/06/81 


***# 




■ 


VALUE T NAME 

TTVTBL X BXLK 
0123564 L BACK 
0123727 L BACKBASE 
0123410 L BACKBASEX 
0000010 A BACKSP 
0124600 L BASEADD 


DEF/REF ATTRIBUTES AND REFERENCES CTAPH 

96-36 96-36 

40-44 44-26, 44-36, 50-44 

46-08 27-43, 30-21, 30-25, 32-20, 40-02, 40-07, 40-46, 41-26, 41-42, 51-03, 51-39, 52-08 

30-24 24-24 

LIBNUM=10 103-26,103-30 
62-12 57-36, 57-42, 59-26, 60-09, 60-45, 61-41, 64-35, 69-10 


W77D 




' 


0124602 L BASEBACK 
' 0000002 A BASETO 
U BBX 
0124165 L BCKTIM 
0124525 L BCKUP 
0020013 A BCLRBRF 


62-14 60-08, 61-37, 61-49, 62-07, 62-22, 65-13, 68-02 
118-28 41-45 
1-08 
53-36 36-24, 49-30, 50-30, 54-41 
61-01 57-10, 57-19, 70-19 
LIBNUM=10 83-35 








0120013 A BCLROCN 
0160013 A BINIT 
CSYSUB V BINXBCD 
0124100 L BKUP 
0000000 A BLKADR 
0127462 L BLKDATA 
P114274 L BLKISOK 


LIBNUM=10 82-11, 82-41 
LIBNUM=10 86-44 
4-24 87-44,114-35,117-42,124-02 
50-34 48-24, 48-33 

9-04 W=13 S=0 N=0 CL=3 LIBNUM=10 59-14, 61-10, 96-27,129-12,129-13,129-14,129-23 
138-01 5-48 
97-09 96-29, 96-33 








0114252 L BLKISZRO 
MASACS V BLKMAX 
0126306 L BLKNG 
0000000 A BOFL 
0127422 L BOO 


96-34 96-31 

5-31 54-05, 97-28,138-37 
98-31 97-08 

20-14 W=1 S=16 N=0 CL=3 
132-18 132-14 


• 






0000000 A BOT 
0123751 L B0TPAT1 
0124674 L BOTPOS 
0127351 L BOUNDCHK 
0125340 L BPS 
0123765 L BPX 
0000000 A BR 
0125333 L BRINGBCK 
0042013 A BSLDON 
0000013 A BSTAT 
0044013 A BSUNLDON 
0140013 A BSWB 
0125337 L BTLOK 
MASACS V BUFBLK 


19-15 W=1 S=16 N=0 CL=3 47-42, 51-06, 61-04, 64-12, 65-15, 77-08, 77-15 
47-46 51-07 

64-44 64-16, 65-05, 77-17 
129-01 59-18, 85-08 
77-16 77-03 
48-21 47-43 

20-07 W=1 S=7 N=0 CL=3 80-23 
77-07 76-16 

LIBNUM=10 60-17 

LIBNUM=10 26-27, 79-11 

LIBNUM=10 82-05 

LIBNUM=10 60-27 
77-14 76-17 
5-33 87-02 






' 


0000011 A BUFCT 


13-47 W=4 S=0 N=11 CL=3 LIBNUM-10 48-39, 49-28, 51-30, 59-32, 59-33, 60-22, 81-34, 82 
84-13, 87-01, 87-02, 87-20,105-11,105-27,121-22 


-21, 






0000013 A BUFDEV 


21-28 








0123355 L BUFER 


28-02 26-32 








0125775 L BUFINT 


86-43 87-29, 88-13 








MASACS V BUFLEN 


5-32 59-25, 59-35, 59-38, 60-06 








0126304 L BUST 


98-24 95-48, 96-01, 97-40 






• ■ 


0124670 L BXRMV 


64-36 64-32 








0126017 L BXSYMB 


87-15 






. 


0123301 L BXTST 


26-46 26-06, 26-31, 26-39, 26-41, 26-43 








U C 
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604 



PATCH HISTORY 










0:43:06 2/06/81 **** 


VALUE T 


NAME 


DEF/REF ATTRIBUTES AND REFERENCES 






CTAPH H77D 


TTYTBL X 


CXOMPL 


75-14 75-14, 77 


-33 








CTVTAB V 
» 


CXOMTU 


LIBNUM=12 
74-49 


49-23, 58-16, 58-23, 62-11, 62-24, 


67-38, 


68-34, 


68-48, 69-20, 72-14, 74-18, 


14 P 


CXOMTUX XCTA 
PH 


LIBNUM=12 










CTSD V 


CCKTSTAT 


4-28 24-42 








0124745 L 


CHK 


70-14 73-26 










0124170 L 


CHKDIS 


53-44 53-13 










0125065 L 


CHKRESULTS 


72-01 70-17, 70 


-24 








0127264 L 


CHKTSTAT 


126-01 64-28, 65 


-09 








0125020 L 


CHKVER 


71-01 70-15 










0124032 I 


CLEAN 


49-25 49-36 










0000000 A 


CLIENT 


13-24 H=5 S=13 
101-36 


N*0 CL-3 LIBNUM-10 30-14, 30-15, 


31-22, 


32-19, 


95-45, 95-49,101-15,101-35, 


0125761 L 


CLNLINKUP 


86-14 86-13 








• 


0000000 A 


CLNT 


8-16 W=5 S«13 


N«0 CL-3 LIBNUM«10 


* 




, 


0112234 L 


CLNTRTN 


139-08 86-21 










0000005 A 


CLOSE 


LIBNUM=10 


85-24 








0123411 L 


CLOSESTATE 


31-01 26-45, 29 


-48, 39-43, 42-17, 44-38, 46-20, 60-25, 


60-34, 


64-18, 


72-41, 77-36 


CSYSUB V 


CLR WRDS 


4-19 










0127257 L 


CLRIT 


125-11 125-14 








.,- •-' " 


0127437 L 


CLRMAINT 


135-01 5-44 










0127254 L 


CLRSTAT 


125-01 76-24 


■ 






■ 


0124655 L 


CLST 


64-17 62-37, 62 


•45 








0126443 I 


CMPOP 


103-45 103-43 










0124430 I 


CMPUTCRC 


59-30 57-15 










0000000 A 


COM 


18-07 W=4 S=10 


N-0 CL»3 LIBNUM»10 39-49, 56-08, 


85-41 






0125316 L 


COMINIT 


76-27 76-31 










0000000 A 


COMPROK 


17-12 W=1 S*14 


N«=0 CL-3 LIBNUM»10 5-45, 90-12 








. 0127301 L 


COMTU 


127-01 5-46 










«.<(+l8 














!$*); 




' •' 










— / 














,X >? 










■ 


:«»'"" ab 














ed«fgM „«<+ 
•f jklmnopqr" 

B't"--$tUVM 












■ * 


























xyi*'-rC*»o'* 

J»3«7i9f'i3/ 


























-tabcdefgM 
>jklmno 


























pqr \ s 
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A05 




PATCH HISTORY 
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VALUE T NAME 


DEF/REF ATTRIBUTES 


*ND REFERENCES 


CTAPH M77D 


tuvwxyr 








0123456789 




' 




' T CONLC 


LIBNUM«12 






0125205 L CONRET 
•n 


74-22 71-13, 71-32 






z 
<e<hplx 








vSfgs 








-<8l 








IX >k 








Jo#b'd" ab 




' 




cdefgM „$<* 








■f iklmnopqr* 

B)*"--StUVM 














xyz* "-rO* 01 * 
3*54789^-13^ 






■ 








-<ABCDEFGHI 








>JKLMNO 








P«R \ S 








tuvwxtz 








0123456789 








• T CONSC 


LIBNUM«12 






0000004 A CONTLPT 


13-30 W»20 S=0 N"4 


Cl«3 LIBNUM«10 86-11,103-49 




0126107 L CONTRST 


90-22 90-07, 90-13 






0123500 L COPYPROG 


37-01 29-49 






0000001 A COPYST 


21-02 37-33 






0124721 L COPYSTATE 


67-01 27-33 






0111432 L CPATCH 


1-43 79-20,101-44, 


114-27,117-21,123-26,134-13,139-04 




0112562 L CPATCH1 


1-44 58-32, 65-29, 


89-18 




0114107 L CPATCH2 


1-45 24-34, 67-22, 


96-21 




0115073 L CPATCH3 


1-46 




. 


0121236 L CPATCH7 


1-47 98-02 






0000002 A CRCBLK 


9-10 H=20 S=0 N=2 


CL*3 LIBNUM=10 




0127132 L CRCCHK 


120-01 62-06, 62-21 






0127155 L CRCEREC 


121-01 41-40, 61-48, 


88-26,120-21 




0126057 L CRCFAIL 


88-22 84-15 






0126054 L CRCFAILPO 


88-17 81-44, 82-03 






0125670 L CRCLOOK 


84-35 84-21, 84-23 






0124447 L CRCL0P1 


59-42 60-04 






0124450 L CRCL0P2 


59-44 60-02 






0125042 L CRECR 


71-21 71-18 






0123206 L CTAPH 


24-01 5-47, 52-11 






CBLM V CTAPHRTN 


4-07 46-09, 62-15, 


75-48 




TTYTBL X DXGN 


118-48 118-48 






0000001 A DATA.AREA 


9-09 W=20 S=0 N=1 


CL=3 LIBNUM=10 111-13,112-09 


' 
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PATCH HISTORr 
VALUE T NAME 
0000000 A DOT 



!J*); 
"-/ i 
,X_>? 
:*8'-" 

«>♦■-» 



___ BOS 

DEF/REF ATTRIBUTES AND REFERENCES 

19-12 W*1 4-13 N-0 CL«3 82-02 



0:43:06 2/06/81 **** 
CTAPH W77D 



3*S6T69fJ^J/ 










-CABCDEFGHI 










>JKLMNO 










PQR \ S 










TUVKXYZ 










0123*56789 










' T DELLC 




LIBNUM=12 






0000000 A DEOF 


9-07 


W=1 S«=16 


N=0 


CL*3 


0000000 A DEVICODE 


19-06 


W=6 S=0 


N=0 


CL»3 


0000010 A DGN 


118-46 


114-04 






0126763 I DGNRMV 


114-01 


5-49 






BLMMA V DGNTAPE 


4-40 


89-29 






0000007 A DIAGBITS 


13-44 


M«2 S»16 


N-7 


CL-3 


• 




121-13,123 


-14, 


123-15 


0000013 A DIAGST 


21-14 


6-01 






0000037 A DIAGT 




LIBNUM=10 




31-22 


MASACS V DIRLOC 


5-34 


54-10 






0126634 L DIRSRCHIO 


111-08 


46-19 






0126627 I DIRSRCHRES 


111-01 


45-07 






MASACS V DIRTRK 


5-35 


54-07 






0124272 L DIVIDE 


55-30 


55-26 






0124543 L DOBKUP 


61-22 


61-09 






0124537 L D0BKUP1 


61-17 


61-12 






0125342 L DONPO 


77-21 


76-18 






0115031 L DONTINC 


68-01 


67-46 






0127235 I DOPO 


123-19 


123-16 






0000006 A DUP 


13-38 


W=1 S=15 


N*6 


CL«3 


0124572 L DUPCHK 


62-04 


57-18 






'+6' T DUPL 




H=1 S=15 


N=6 


CL=2 


0123455 L DUPOK 


35-19 


35-17 






0000000 A DVIC 


18-04 


H=6 S=0 


N=0 


CL=3 


U E 










TTYTBL X EXRR 


88-09 


88-09, 96 


-38 





25-43 



62-30, 84-40,103-23 



LIBNUM*10 



, <™"??',S2~}2' 84 " 16 ' 85 ~ 46 ' '7-28,114-15,114-16,121-12, 






LIBNUM-10 35-09, 35-18, 37-25, 58-09, 62-08, 62-44,111-43,130-08 



LIBNUM=10 



39-49, 56-08, 85-41, 99-41 
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C05 



PATCH HISTORY 














0:43:06 2/06/81 **** 


VALUE 


T 


NAME 


DEF/REF 


ATTRIBUTES AND REFERENCES 








CTAPH W77D 


0127364 


L 


EKK 


129-17 


129-25 












0127047 


L 


EM6STP 


116-22 


116-18 












0125620 


L 


ENDI 


63-41 


79-28, 80-06, 


80-48, 86-48 










0125610 


L 


ENDINT 


83-28 


82-27, 82-47, 


83-33, 85-20, 85-33, 


85-47, 86-04, 


87-06, 


87-23, 


88-31,139-09,139-13 


0000007 


A 


ENDTRK 


13-42 


W=2 S=13 N*7 


CL=»3 LIBNUM=10 


54-19, 58-40, 


97-28 






0000000 


A 


EOF 


9-06 


H=1 S«15 N=0 


CL=3 LIBNUM«10 


40-06, 59-07, 


84-19, 


84-20, 


103-22,103-23 


0124610 


L 


EOFLOOK 


62-28 


62-09 












0000000 


A 


EOT 


19-09 


W=1 S=10 N=0 


CL«3 65-17, 


76-38, 77-02 








0125331 


L 


EOTCHK 


77-01 


76-15 












0123674 


L 


EPLCHK 


45-12 


46-24 












0127113 


L 


ERBLK 


118-21 


115-14,117-13,118-22,118-25,118-28, 


118-31,118-34, 


118-37, 


118-40, 


118-43,118-46 


0000005 


A 


ERNA 


13-34 


W=1 S=16 N=5 


CL=3 LIBNUM=10 


37-24, 49-19, 


56-17, 


58-21, 


74-03, 98-08,136-12,136-13, 










136-14,137-11,137-12,137-13 










0126732 


L 


ERTN 


112-21 


111-15 















J 


ESS2 


1-10 

















J 


ESS2B 


1-27 














1 


J 


ESS2E 


1-09 

















J 


ESS3 


1-27 














0000006 


A 


EVOD 


13-40 


W=1 S=17 N=6 


CL=3 LIBNUM=10 


45-20, 45-21, 


96-10, 


96-11 




0000006 


A 


EXPLIC 


13-39 


H=1 S=16 N=6 


CL=3 LIBNUM=10 


45-18, 49-17, 


96-12 






0126336 


L 


EXPLICIT 


99-40 


99-16 












•+0' 


T 


EXPOP 




H=1 S=11 N=0 


CL=2 LIBNUM=10 


96-08 








0124262 


L 


FAST 


55-15 


54-31, 55-09 












0000000 


A 


FATLREAD 


118-22 


49-42, 72-49 












0000001 


A 


FATLWRIT 


118-25 


57-44, 72-30 












0124310 


L 


FFSRCH 


55-44 


55-41 












0125324 


L 


FFTUS 


76-37 


76-14 












1 


J 


FIELD 


1-09 














0124044 


L 


FILELOST 


49-40 


49-16, 49-18, 


49-20, 50-15 










» +1 i 


T 


FILENAM 




W=10 S=0 N=1 


CL=2 










0000000 


A 


FILL 


20-15 


W=1 S=17 N=0 


CL=3 










0000002 


A 


FILNAM 


13-27 


H=20 S-0 N=2 


CL=3 LIBNUM=10 


45-05, 45-35, 


46-17, 


96-05 




•+6' 


T 


FILSTRT 




W-13 S=0 N=6 


CL=2 111-42 










0124047 


L 


FINALVER 


50-01 


47-36 












0125027 


L 


FLSRCV 


71-10 


73-09 












HASACS 


V 


FSTDIST 


5-36 


110-11 












0125764 


L 


FUNRTN 


86-26 


75-07 












0125543 


L 


GETADR 


82-32 


82-25 












0125162 


L 


GETBAOBLK 


74-01 


70-21 












0125227 


L 


GETCLNT 


75-03 














0124361 


L 


HEDSET 


58-05 


57-13 












0000000 


A 


HOADRBIT 


8-11 


W=4 S=0 N=0 


CL*3 LIBNUM"10 










0000003 


A 


HOCONPT 


13-28 


H=4 S=0 N=3 


CL=3 LIBNUM=10 


86-06,103-48 








0000001 


A 


HOFILNAM 


13-25 


H=4 S=0 N=1 


CL>=3 LIBNUM=10 


45-04, 45-33, 


46-16, 


96-04 




TTYTBL 


X 


IXNIT 


77-31 


77-31 


. 










TTYTBL 


X 


IXNT 


88-08 


88-08 












LAYOUT 


V 


I_OBUF 


5-17 


40-05, 58-25, 


59-25, 59-35, 59-36, 


59-38, 60-06, 


62-29, 


83-04, 


84-19, 84-39, 85-03,103-24, 










105-14,111-13,112-09,120-29,129-10 










0000001 


A 


IJJBUFD 


6-35 


6-36 
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D05 



PATCH HISTORY 
VALUE T NAME 



0000160 A 
0000007 A 
0123374 L 
'ILLEGAL CON 
DITIONAL IN 
THE IF MACRO'T 
•OATA > OR 

DATA < IS 

MEANINGLESS 
, USE OATA ■* 
« 0' 

•TWO CONSTAN 
TS ARE BEING 

COMPARED IN 

IF MACRO' 
•AN ITEM HAS 

COMPARED TO 

SOMETHING 
THER THAN A 
CONSTANT' 
'DESTINATION 

OF AN * STA 
TEMENT IS A 
CONSTANT' 
•ATTEMPTING 
TO SET ITEM 
= TO SOMETHI 
NG OTHER THA 
N A CONSTANT'T 
•ITEM MAY ON 
LY USE THE = 

AND -= COND 
ITIONALS' T 
0000075 A 



IBG 1BUF 

IDLE 

IDLESTATE 



IFERR0R1 



T IFERR0R2 



T IFERR0R3 



T IFERR0R4 



T IFERR0R5 



IFERR0R6 



IFERR0R7 
INDEXCNTR 



■OPEN MACRO' 
•TAPE UNIT C 
OMMAND LAYOU 
T' 

•TAPE STATUS 
REGISTER.' 
•CONSTANTS' 
"IAIN TCB HA 
NDLER' 

•TAPE HANDLE 
R' 



DEF/REF ATTRIBUTES AND REFERENCES 



T INDEXTITLE1 



T INDEXTITLE10 



INDEXTITLE11 
INDEXTITLE12 

INDEXTITLE13 

INDEXTITLE14 



30-04 



LIBNUM=10 
LIBNUM=10 



26-40, 29-39, 31-46, 45-13, 92-18, 93-14, 97-11 








0:43:06 2/06/81 **** 




CTAPH W77D 


14, 97-11 


' 






















• 






• 









6-37 
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• • 



• • 



E05 



PATCH HISTORr 
VALUE T NAME 



DEF/REF 



ATTRIBUTES AND REFERENCES 



0:43:06 2/06/81 **** 
CTAPH W770 



'BASE HANDLE 
R TASK DISPE 
NSOR' T 
•CLOSE STATE 

INITIAL ENT 
RY' T 

•READ STATE 
INITIAL ENTR 
Y' T 

'READ 1 BLOC 
K STATE INIT 
IAL ENTRY' T 
•WRITE STATE 

INITIAL ENT 
RY' T 

•CLIENT CONT 
ROL HACROS' T 
'MRF STATE I 
NITIAL ENTRY'T 
•COPY STATE 
INITIAL ENTR 
Y" 

•MAIN BASE L 
EVE TAPE STA 
TES' 

'READ STATE' 
•SIEZURE STA 
Ti' 

•VERIFY STAT 
E' 

'TIMING SUBS 
TATE' 
'POSITIONING 

SUBSTATE' 
'WRITE SEGME 
NT OF TAPE H 
ANDLER* 
•TAPE RECOVE 
RY FROM MRF' 
•BLOCK HEADE 
R STORAGE' 
'COPY TAPE T 
TAPE ROUTI 
NE' 

'MAINT STATE 
-REREAD' 
•TAPE REPACK 

STATE.' 
•TAPE INTERR 



INDEXTITLE15 

INDEXTITLE16 

INDEXTITLE17 

INDEXTITLE18 

INDEXTITLE19 

INDEXTITLE2 

INDEXTITLE20 

T INDEXTITLE21 



INDEXTITLE22 
INDEXTITLE23 

INDEXTITLE2A 

INDEXTITLE25 

INDEXTITLE26 

INDEXTITLE27 

INDEXTITLE28 
INDEXTITLE2? 
INDEXTITLE3 

INDEXTITLE30 
INDEXTITLE31 
INDEXTITLE32 
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JUL 



PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



0:43:06 2/06/81 **** 
CTAPH W77D 



UPT LEVEL PR 
OGRAMING' 

•TTY INPUT H 
ANDLING REST 
ORAL' 

'REMOVE TAPE 

ROUTINE. TT 
T REQUEST HA 
NDLER' 

•EMERGENCY T 
CB INIT. ROU 
TINE' T 

•PERIODIC RE 
PACK ROUTINE'T 

'OPEN TCB SU 

BROUTINE' T 

'ORDER EXECU 

TION ROUTINE'T 

'TAPE CONTRO 

L BLOCK' T 

•REQUEST PLA 

NT SUBROUTIN 

E* 

•TDC BUFFER 

LOADING ROUT 

INE' 

'POPSTATE SU 

BROUTINE' 

'PUSHSTAT SU 

BROUTINE' 

•TU STATUS R 

ETRIEVAL* 

•PTP UPDATE' 

•SPEED RESOL 

VING SUBROUT 

INE' 

'DIRECTORY S 

EARCH ROUTIN 

E' 

'CRC XOR TAB 

LE' 

•REMOVE TAPE 

FROM ACCESS 

ROUTINE' 
•MAINTENANCE 

SAVE BLOCK' 
'ORDER SENDI 
NG, LED LIGH 
TING TAPE RE 



T INDEXTITLE33 
T INDEXTITLE34 

T INDEXTITLE35 

T INDEXTITLE36 
INDEXTITLE37 
INDEXTITLE38 
INDEXTITLE39 

T INDEXTITLE4 

T INDEXTITLE40 

T INDEXTITLE41 
T INDEXTITLE42 
T INDEXTITLE43 



INDEXTITLE44 
INDEXTITLE45 



T INDEXTITLE46 

T INDEXTITLE47 
T INDEXYITLE48 

T INDEXTITLE49 
T INDEXTITLE5 
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• • 







605 




PATCH HISTORY 




0:43:06 2/06/81 **** 


VALUE T 


NAME DEF/REF ATTRIBUTES AND REFERENCES 


CTAPH W77D 


HOVE ROUTINE 








.' T 


INDEXTITLE50 


■ 




'ERROR PRINT 








OUT ROUTINE' T 


INDEXTITLE51 






'CRC CHECK R 




... . 




OUTINE' T 


INDEXTITLE52 






•ERROR RECOV 








ERT SETUP RO 






■ 


UTINE.' T 


INDEXTITLE53 






'TAPE RECOVE 








RY MESSAGE* T 


INDEXTITLE54 






'TU STATUS C 








LEAR ROUTINE'T 


INDEXTITLE55 






•TAPE STATUS 








CHECK ROUTI 








NE' T 


INDEXTITLE56 






'COMPLIMENT 








TAPE NUMBER 








IN TC8' T 


INDEXTITLE57 






•TAPE STATUS 








OUTPUT MESS 








AGE' T 


INDEXTITLE58 






•BOUNDRY CHE 








CK' T 


INDEXTITLE59 






•TAPE UNIT E 








NABLES' T 


INDEXTITLE6 






•RESET DUPLI 








CATE BIT' T 


INDEXTITLE60 






•' T 


INDEXTITLE61 






•TAPE DIRECT 




* 




ORY BLK 1000'T 


INDEXTITLE7 






•DIRECTORY B 








LOCK' T 


INDEXTITLE8 






■TAPE STATUS 








• T 


INDEXTITLE9 






0127453 L 


INHERRCV 


137-01 6-02 




0040007 A 


INIT 


LIBNUM=10 36-16, 48-49, 51-26, 53-32, 76-26, 


84-42, 90-30,116-20,118-13,121-18 


0124130 L 


INITAGN 


51-25 48-32 




0123466 L 


INITCONT 


36-18 36-30 




0126162 L 


INITTAPE 


93-01 6-03 




0125314 L 


INTCOM 


76-25 




J 


INTERDATA 


1-27 




; 0125427 L 


INTMTC 


80-28 80-17 




0000000 A 


INTOFF 


20-09 W=1 S=11 N«0 CL*3 




0126030 L 


INTRMV 


87-27 82-10, 82-16, 82-37, 82-46, 83-13, 83-40, 84-30, 


87-18 


0124777 L 


INVOKVER 


70-30 70-13 




0000000 A 


IOCMP 


13-21 H=1 S"10 N*=0 CL=3 LIBNUM*10 33-33, 41-28, 
85-44, 87-21 


42-21, 50-02, 61-38, 61-40, 75-23, 84-31, 


0126300 L 


ITSOP 


97-41 96-15, 97-37 
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• 


PR-1C957-50 


0:43:06 
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. 








PATCH HISTORY 












VALUE 


T NAME 


DEF/REF ATTRIBUTES 


AND REFERENCES 


0127423 


L JAMTU 


133 


-01 6-0* 








012721* 


L JUSTEXIT 


121 


-*2 l't'1-2* 








0125717 


L JUSTFLG 


85 


•10 64-17, 84 


-38 






012556* 


L KEEPDATA 


83 


-02 82-23 








0125402 


L KEPSND 


79 


-13 80-27 








0126*72 


L KPSND 


105-16 105-26 








0000007 


A LASTRLK 


13- 


-41 W=13 S-0 


N-7 


CL-3 


LIBNUM-10 








97-29,111 


-41, 


129-11, 


138-24 


MASACS 


V LASTBUF 


5- 


-37 60-07, 81 


-36, 


82-26, 


83-19 


0125635 


L LAStBUFFER 


84- 


-06 82-31- 83 


-20 






012*376 


L LDPOS 


58-18 62-*9' 








0123*17 


L LNIDLE 


31- 


-45 31-27 








0126*53 


L LOADBUF 


105-01 60-2*. 60 


•33, 


87-05 




012**73 


L LOADIT 


60- 


-13 57-16. 57 


-22 






0000001 


A L0A0R8IT 


8-17 W=20 S=0 


N-1 


CL-3 


LIBNUM=10 


CSYSUB 


V LOOIOC 


*-20 83-*6 








0000000 


A LOOST 


20- 


■10 W=1 S=12 


N=0 


CL«=3 


81-31 


0000005 


A LOGBLK 


13- 


■31 W=13 S=0 


N=5 


CL=3 


LIBNUM-10 








96-06,103-44, 


121-33 




•TCB* 


T LONAM ABWRT 




LIBNUM=10 








'BUFSTAT' 


T LONAM ACTIV 












'HEADR' 


T LONAM 8LKADR 




LIBNUM=10 








'BUFSTAT' 


T LONAM BOFL 












•TAPSTAT' 


T LONAM BOT 










. 


'BUFSTAT' 


T LONAM BR 












•TCB' 


T LONAM BUFCT 




LIBNUM=10 








'TCB' 


T LONAM~CLIENT 




LIBNUM=10 








• • 


T LONAM CLNT 
T LONAM COM 




LIBNUM=10 

LIBNUM=10 








•TUSTAT* 


T LONAM COMPRO 
K 




LIBNUM=10 








•TCB' 


T LONAM CONTLP 

T 




LIBNUM-10 








•HEAOR' 


T LONAM CRCBLK 




LIBNUM>=10 








'HEADR' 


T LONAM DATA A 
REA 




LIBNUM-10 








•TAPSTAT' 


T LONAM DDT 












'HEAOR' 


T LONAM'DEOF 












'TAPSTAT' 


T LONAM DEVICO 

DE 
T LONAM DIAGBI 












'TCB' 














TS 




LIBNUM=10 








•TCB' 


T LONAM DUP 




LIBNUM-10 








• t 


T LONAM~DUPL 












f t 


T LONAM DVIC 




LIBNUM-10 






* 


'TCB' 


T LONAM~ENDTRK 




LIBNUM=10 








'HEAOR' 


T LONAM~EOF 




LIBNUM=10 








'TAPSTAT' 


T LONAM EOT 












•TCB' 


T LONAM ERNA 




LIBNUM=10 









0:43:06 2/06/81 **** 



CTAPH 



W77D 



54-06, 54-18, 54-19, 58-26, 58-40, 62-34, 67-20, 67-34, 



37-23, 50-10, 54-15, 54-16, 58-14, 62-41, 74-26, 75-25, 
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PATCH HISTORY 


VALUE 


T NAME DEF/ 


•TCB' 


T LONAM EVOD 


•TCB' 


T LONAM EXPLIC 


i * 


T LONAM EXPOP 


i • 


T LONAM_FILENA 

M 
T LONAM FILL 


'BUFSTAT' 


•TCB' 


T LONAM FILNAM 


• i* 


T LONAM FILSTR 

T 
T LONAM HOAORB 


■ t 




IT 


•TCB' 


T LONAM HOCONP 

T 
T LONAM HOFILN 


•TCB' 




AM 


•BUFSTAT' 


T LONAM INTOFF 


•TCB! 


T LONAM IOCMP 


•TCB' 


T LONAM LASTBL 

K 
T LONAM LOADRB 


t ■ 




IT 


•BUFSTAT' 


T LONAM LODST 


•TCB' 


T LONAM LOGBLK 


1 1 


T LONAM LSTBLK 


•TCB' 


T LONAM LSTCOM 


•TCB' 


T LONAM LSTGOO 

D 
T LONAM LTRK 


1 1 


■TCB' 


T LONAM MAINT 


i ■ 


T LONAM MANE 


•TAPSTAT' 


T LONAM MOP 


•TAPSTAT' 


T LONAM MTCE 


■ t 


T LONAM NAME 


• f 


T LONAM OPSZ 


•TCB' 


T LONAM ORIGIN 


•TCB* 


T LONAM OTHERU 


•TCB' 


T LONAM PHYBLK 


•TUSTAT* 


T LONAM POSOK 


•BUFSTAT' 


T LONAM PPE 


•TUSTAT' 


T LONAM PTP 


•BUFSTAT' 


T LONAM RDY 


'TUSTAT' 


T LONAM REOON 


'TCB' 


T LONAM REPK 


'TCB' 


T LONAM RE9 


•TCB' 


T LONAM REflSTP 


1 1 


T LONAM REOUES 

T 
T LONAM REWND 


•TAPSTAT' 


1 1 


T LONAM RTNOX 



B06 



ATTRIBUTES AND REFERENCES 

LIBNUM=10 
LIBNUM=10 
LIBNUM=10 



LIBNUM=10 

LIBNUM=10 

LIBNUM=10 

LIBNUM=10 

LIBNUM=10 

LIBNUM=10 

LIBNUM=10 

LIBNUM="0 

LIBNUM=10 

HBNUM=10 

LIBNUM=10 
LIBNUM=10 



LIBNUM=10 
LIBNUM=10 
LIfNUM=10 
LIBNUM=10 
LIBNUM=10 
LIBNUM=10 

LIBNUM=10 

LIBNUM=10 
LIBNUM=10 
LIBNUM=10 



LIBNUM=10 
LIBNUM*10 
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PATCH HISTORY 










0:43:06 2/06/81 


**** 


VALUE 


T NAME DEF/REF 


ATTRIBUTES AND REFERENCES 


CTAPH 


M77D 


•KB' 


T LONAM SEEZ 






LIBNUM=10 








'TCB' 


T LONAM SNER 






LIBNUM=10 








'TUSTAT' 


T LONAM SQERR 






LIBNUM=10 








•TCB* 


T LONAM SRFAL 






LIBNUM=10 








'TCB' 


T LONAM STATEF 
L6 






LIBNUM=10 








•TCB' 


T LONAM STATEW 
RD 






LIBNUM=10 








•TCB' 


T LONAM STPST 






LIBNUM=10 


- --- 






'BUFSTAT' 

1 9 


T LONAM STUFF 
T LONAM SVBASE 














1 1 


T LONAM SVCOM 














• » 


T LONAM SVFLG 














f 1 


T LONAM SVIN&X 














1 1 


T LONAM SVLST6 
OOD 










• 




1 f 


T LONAM SVST 














1 ff 


T LONAM SYFILE 














•TCB' 


T LONAM TAPNO 






LIBNUM=10 








• i 


T LONAM TAPNUM 










# 


■ •".*' - 


'TAPSTAT' 


T LONAM TIM 










... 




•TCB' 


T LONAM TIMEK 






LIBNUM=10 








•TAPSTAT' 


T LONAM TOR 














'TCB' 


T LONAM TORLOK 






LIBNUM=10 








•TCB' 


T LONAM TRACK 






LIBNUM=10 








'HEADR' 
• • 


T LONAM TRCK 
T LONAM TRK 






LIBNUM=10 








1 1 


T LONAM TRKS 






LIBNUM=10 








'TUSTAT' 


T LONAM TSTATE 






LIBNUM=10 








.'TAPSTAT' 
i * 


T LONAM~TUR 
T LONAM TYPER 






LIBNUM=10 








•BUFSTAT* 


T LONAM~UNST 














« 1 


T LONAM USRDIS 

T 
T LONAM VERTRK 










'■ 




•TCB' 






LIBNUM=10 








■TAPSTAT' 


T LONAM WENBL 














1 f 


T LONAM WORDCN 

T 






LIBNUM=10 








1 t 


T LONAM WF.TABS 






LIBNUM=10 








'TCB' 


T LONAM~WSI 






LIBNUM=10 








'TCB' 


T LONAM 5MRTN 














0126650 


L LOOKMORE 


111 


■22 


112-29,112 


-35 






0123415 


L LREPK 


31 


-33 


31-24 








•+5' 


T LSTBLK 






H=13 S=0 


N=5 CL=2 111-40 






0125603 


L LSTB'JFCK 


83 


-18 










0000015 


A LSTCOM 


14 


-03 


W=20 S=0 


N=15 CL=3 LI9NUM=10 39-46, 47-45, 


56-06, 75-31, 85-40, 99-45,121-31 




0000017 


A LSTGOOD 


14 


-08 


W=13 S=0 


N=17 CL=3 LIBNUM=10 48-05, 50-22, 


61-21, 75-29,109-19,121-40,138-27 




•+5' 


T LTRK 






W=2 S=13 


N=5 CL=2 




CTVTAB 


V MXOVST 






LIBNUM=12 


112-12 
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PATCH HISTORY 








VALUE . 


T 


NAME 


OEF/REF 


ATTRIBUTES AND REFERENCES 


14 


P MXOVSTXJfCSY 












SUB 




LIBNUM*12 




OOOOOOO 


A 


MAINT 


13-18 


W»1 S«5 
121-25 


N=0 CL«3 LIBNUM*10 


0000000 


A 


MANE 


18-05 


H=1 S=6 


N=0 CL=3 LIBNUM=10 


0123712 


L 


MATERED 


45-36 


74-40 




LAYOUT 


V 


MMTDCAR 


5-26 


115-11 




LAYOUT 


V 


MMTOFO 


5-18 


112-04 




LAYOUT 


V 


MMTOFR 


5-22 


71-20 




LAYOUT 


V 


MMTOFW 


5-24 


72-37 




LAYOUT 


V 


MMTOTE 


5-20 


73-18 




LAYOUT 


V 


MMT1F0 


5-19 


112-01 




LAYOUT 


V 


MMT1FR 


5-23 


71-17 




LAYOUT 


V 


MMT1FW 


5-25 


72-34 




LAYOUT 


V 


MMT1TE 


5-21 


73-14 




OOOOOOO 


A 


MONST 


21-03 






012J357 


L 


MONSTATE 


29-01 


27-32 




OOOOOOO A 


MOP 


19-16 


W=1 S«17 


N*0 CL«3 


012600A 


L 


MOREBUF 


86-49 


86-41 




CSYSUB 


V 


MOVST 


4-21 






0124643 


L 


MRFINIT 


64-01 


27-41 




0123460 


L 


MRFPROG 


36-01 


29-43 




000C011 


A 


MRFST 


21-11 


36-21, 65 


-36 


•3E790646' 


T 


MRNO 








HAS ACS 


V 


MSECPR 


5-38 


55-28 




OOOOOOO 


A 


MTCE 


19-13 


W=1 S=14 


N=0 CL=3 



0:43:06 



CTAPH 



2/06/81 **** 
W77D 



49-04, 50-06, 57-35, 61-44, 75-47, 85-18,120-15,121-23, 
25-14 



4-32 70-32, 71-03, 71-04, 72-06, 72-19, 74-09, 75-19,121-28 
112-05 112-02 
82-29 82-30 
118-33 118-33 

W=10 S=0 N=1 CL"2 LIBNUM=10 
55-01 54-25 

80-25 80-18, 80-33, 30-35, 81-17, 81-30 
32-09 32-02 



LIBNUM=10 

27-02 
41-33 
120-14 
81-37 
101-32 101-30 
103-25 103-19,103-21 
59-08 59-02 
59-11 
85-43 

75-34, 75-36 

103-28 

25-13 

58-10 

111-36 



27-15 

41-43 

120-27 

82-04 



59-16 
85-45 
75-46 

103-39 
25-34 
58-24 

112-31 



101-15 
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VALUE T NAME 



OEF/REF ATTRIBUTES AND REFERENCES 



0:43:06 2/06/81 **** 
CTAPH W77D 



■+0' 



0125730 
0123456 
0126344 
0123407 
0000003 
0123265 
0125445 
0126363 
0127164 
0127274 
0123257 
0126604 
0127322 
0126402 
0126247 
0126330 
0126451 
0126067 
0126452 
0125553 
0126450 
0127413 
0124676 
0127316 


TTYTBL 

TTYTBL 

TTYTBL 

CTVTAB 

14 

0123660 

CTSD 

BLMMA 
0123630 
0125712 
0127366 
0000006 
0014000 
0000012 
0126202 
0126205 



NOMT 


85-21 85-09, 85-1? 




NONDUPL 


35-21 35-10 




NONO 


99-46 99-42, 99-44 




NOREPK 


30-22 30-13, 30-16 




NORESP 


118-31 26-35, 42-06 




NORESPONSE 


26-34 25-42 




NORN 


80-49 80-44 




NORMOP 


101-26 101-16 




NORMTCB 


121-17 121-14 




NORTN 


126-16 126-22 




NOSAVE 


26-26 26-16 




NOSEQER 


109-17 109-12,109-15 




NOSET 


128-12 128-10 




NOSTAT 


103-10 102-35 




NOTEXPLI 


96-13 96-09 




NOTRACK 


99-35 99-08 


■ 


NOTRITE 


104-04 101-37,102-43 




NOTUTL 


89-47 89-32, 89-36 




NOTYET 


104-07 102-09 




NOUPITI 


82-40 




N02DAT 


104-01 102-39,103-05, 


103-47 


NXTLX 


132-11 132-15 




NXTSCAN 


65-07 66-02 




NXTSTAT 



OXORADR 


128-07 128-13 




118-42 118-42 




OXPER 


96-49 96-49,118-03 




OXRDER 


118-39 118-39 




OXRDEXC 


LIBNUM=12 


33-24, 45-42, 5 


OXRDEXCX XCT 




APH 


LIBNUM=12 




ODUNIT 


44-32 44-30, 45-23 




OFLUCTL 


4-29 89-34 




OFLUTIL 


4-01 89-31 




OKCOMP 


42-19 41-29 




OKFLG 


85-04 84-41 




OKYET 


129-21 129-16 




OORADR 


118-40 54-46,129-18 




OOS 


21-20 




OPEN 


LIBNUM=10 


96-02 


OPENM 


95-01 6-05 




OPENTCB 


95-16 6-06 




OPSZ 


H=1 S=3 N=0 


CL=2 LIBNUM=10 
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F06 . 




■ 




0:43:06 2/06/81 **** 




. ' 


PATCH HISTORT 






VALUE T NAME DEF/REF ATTRIBUTES AND REFERENCES 


CTAPH W77D 




<.<(AON 








x$V; 






i 


"S/ 

,x_>? 

:#a'L" ab 

cdefgM n i<* 
•f jklmnopqr* 

B>i»--StUVW 












; 




















-OBCLEFGHI 








>JKLMNO 
P«R \ S 
LLLHLYZ 
0123456789 

' T OPTR 

0124102 L ORDBCKAB 50-37 51-21 <ne _. 
0000005 A ORDER 118-37 28-03, 42-04, 64-37, 65-45, 80-32,105-35 








0126323 L OROEXC 99-18 6-07 


._ -" - 






0126321 L ORDEXCAB 99-10 6-08 


~" 






0126317 L OROEXCNT 99-01 6-13 


, 






0123615 L ORDFAL 42-03 40-43 








0124161 L ORDSND 53-30 48-06, 53-20 

0000557 A ORG 000013 24-30 

0001301 A ORG 000133 96-27 

0000576 A ORG 000205 31-11 

0000607 A ORG 000211 31-42 

0000613 A ORG 000216 32-06 

0001515 A ORG 000255 114-33 








0000636 A ORG 0J0272 37-19 
0001713 A ORG~000330 123-32 
0001567 A ORG 000335 117-27 
0001335 A ORG 000337 98-08 
0002074 A ORG 000602 139-08 
0001100 A ORG 000611 79-26 
0001400 A ORG 000626 102-02 
0000561 A 0RG~000627 24-40 
0002033 A ORG 000647 134-19 
0001217 A ORG 000654 89-24 
0000771 A ORG 000677 67-28 
0000722 A ORG 000765 58-38 
0000600 A ORG 001100 31-21 
0000615 A ORG~001120 32-17 
00007^7 A ORG 001124 65-35 
0001411 A ORG 001130 102-32 
0000720 A ORG~001177 58-28 








0000754 A ORG~001466 65-02 
0000767 A ORG 001516 67-11 
0001000 A ORGI001526 68-13. 
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PATCH HISTORY 
VALUE T NAME 



OEF/REF ATTRIBUTES AND REFERENCES 



0301010 
0001076 
0001106 
0001112 
0C01116 
0001124 
0001140 
0001144 
0001154 
0001161 
0001210 
0001215 
0001231 
0001263 
0001272 
0001277 
0001333 
0001344 
0001372 
0001376 
0001407 
0001417 
0001513 
0001525 
0001553 
0001565 
0001711 
0001722 
0002031 
0002045 
0002065 
0000016 
0000005 
0126476 
CTVTAB 

14 



CTVTAB V 
14 P 

0125277 L 

CTSO V 

0000006 A 



0123731 
0124742 
TTYAPP 
0127010 
0124356 



ORG 001552 

ORG 002175 

ORG~002201 

ORG 002237 

ORG~002241 

ORG~002400 

0RG~002531 

ORG 002546 

ORG 002554 

0RG~002631 

ORG 002653 

ORG 002656 

0RG~002715 

ORG~002776 

ORG~003001 

ORG 0C3043 

ORG 003072 

ORG~003100 

ORG~003153 

ORG 003167 

0RG~003171 

ORGJ503174 

ORG 003573 

ORG 003613 

ORG~003644 

ORG 003663 

ORG 004030 

0RG~004036 

ORG~004225 

ORG~004232 

0RG~004257 

ORIGIN 

OTHERU 

OUTHAIT 

PXMRY 

PXMRYX XTTYA 

PP 

PXTREC 

PXTRECX XCTA 

PH 

PACKTAPE 

PAGSCR 

PHYBLK 

PHYLOC 

PIP 

PMRY 

PNTRENOV 

POMES 



69-07 

79-16 

79-45 

81-02 

81-12 

83-22 

85-30 

86-01 

86-18 

87-35 

88-28 

89-14 

90-33 

95-03 

95-29 

96-17 

97-43 

98-28 

101-18 

101-40 

102-22 

103-07 

114-23 

115-16 

116-29 

117-17 

123-22 

124-04 

134-09 

135-09 

138-14 

14-04 

13-33 

105-22 









0:43 


06 


2/06/81 


#*** 












CTAPH 




W77D 


















• 


- 




















37-30, 37-31,111-45,129-22,138-17 
49-14, 49-24, 50-03 



W*15 S*0 N"=16 CL-3 LIBNUM=10 

W=1 S=15 N=5 CL*3 LIBNUM*10 

105-23 

LIBNUM=12 77-27, 88-03, 96-44,115-29,118-03,124-16,128-32 

LIBNUM=12 
LIBNUM=12 



41-38, 71-25, 71-42, 72-18, 75-16, 88-21 

LIBNUM=12 
76-01 27-42 
4-36 80-45, 80-47 
13-36 W=13 S=0 N=6 CL=3 LIBNUM=10 37-31, 50-09, 54-13, 54-14, 58-11, 58-12, 62-33, 62-46, 
.. „, It'll' "-27,103-33,103-34,103-35,111-43,121-35,138-23^138-26^138-28 

68-27 68-37, 68-39 

77-27 88-03, 96-44,115-29,118-03,124-16,128-32 
115-07 114-05,115-03 
57-43 57-40 
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CTAPH W77D 



0124141 
0126322 
0124076 
0123532 
0124140 
0124352 
0124151 
0000004 
0123641 
0124744 
0000000 

0124350 
L000003 
0000000 
0125104 
0127060 
0127342 
OOOOOOO 

0127223 
0123726 
0126537 
0124067 

TTYTBL 
TTYTBL 
TTYTBL 

14 



POP 

POPSTATE 

POPTIME 

POPY 

POPZSTP 

POSCHKIT 

POSIT 

POSITION 

POSITIONLOO 

POSMATE 

POSOK 

POSOKCHK 

POSST 

PPE 

PRMERR 

PRNTER 

PRNTIT 

PTP 

PTREC 

PUSHAND 

PUSHSTAT 

PUTLST 

R 

RXCOVRY 

RXEPT 

RXMV 

RAO 



DEF/REF ATTRIBUTES AND REFERENCES 

51-36 42-22 
106-01 6-09 

50-27 49-05 

39-45 40-37 

51-35 50-20, 50-23, 53-24, 56-09, 61-45, 62-31, 62-39, 67-39, 68-28 

57-37 

53-01 27-35 

LIBNUM=10 103-30,103-41 

43-42 29-47, 37-37, 45-10, 58-19, 74-30 

68-32 67-08 

17-13 W=1 S=15 N=0 CL=3 LIBNUM=10 6-11, 47-34, 47-47, 48-03, 53-12, 55-22, 56-10, 57-41, 
61-08, 70-36, 85-13,109-11,109-20,109-21,120-34,125-12,134-22,134-30 

57-33 57-09 

21-05 6-12, 43-43 

20-06 H=1 S=6 N=0 CL«=3 80-31,105-37 

72-24 72-10, 74-04, 74-08, 74-12, 74-15, 74-21, 74-47 
117-01 72-40, 85-28 
128-27 128-19, 12t-24 

17-10 W=13 S=0 N=0 CL=3 LIBNUM=10 48-03, 48-05, 50-13, 50-19, 54-23, 73-08, 74-11, 87-38,. 
109-13,109-21,114-20,117-36,123-41 
123-01 6-10 

46-05 33-36, 70-43 
107-01 6-14 

50-18 50-05 



124-21 124-21 
128-36 128-36 

LIBNUM=3 24-22, 24-23, 24-25, 25-49, 26-04, 26-05, 26-09, 26-49, 27-01, 27-03, 27-22, 

27-25, 27-27, 29-40, 30-12, 30-14, 30-18, 30-19, 30-20, 30-23, 33-32, 33-33, 35-09, 35-14, 

35-18, 35-20, 37-23, 37-24, 37-25, 37-30, 37-31, 37-32, 39-39, 39-41, 39-44, 39-46, 40-03, 

40-36, 41-28, 41-41, 42-21, 44-21, 44-28, 44-29, 44-31, 45-04, 45-05, 45-14, 45-18, 45-20, 

45-22, 45-33, 45-35, 45-49, 46-16, 46-17, 47-32, 47-33, 47-45, 48-05, 48-38, 48-39, 49-03, 

49-04, 49-13, 49-14, 49-17, 49-19, 49-21, 49-24, 49-27, 49-28, 49-29, 49-35, 50-02, 50-03, 

50-06, 50-09, 50-10, 50-17, 50-22, 50-38, 51-04, 51-12, 51-18, 51-30, 51-35, 53-22, 54-01, 

54-06, 54-08, 54-09, 54-13, 54-15, 54-18, 55-10, 55-38, 56-06, 57-35, 58-07, 58-09, 58-11, 

58-14, 58-17, 58-21, 58-26, 58-38, 59-09, 59-10, 59-12, 59-32, 59-37, 59-46, 60-22, 60-44, 

61-21, 61-38, 61-40, 61-43, 61-44, 62-08, 62-33, 62-34, 62-38, 62-41, 62-43, 62-46, 65-06, 

65-22, 65-27, 65-39, 65-41, 65-47, 66-05, 67-20, 67-28, 67-32, 67-47, 67-49, 70-38, 70-39, 

71-06, 71-11, 71-15, 71-26, 71-28, 71-30, 71-46, 72-07, 72-32, 73-12, 73-27, 73-38, 74-03, 

74-06, 74-13, 74-16, 74-26, 74-27, 74-36, 74-38, 74-46, 75-06, 75-12, 75-18, 75-20, 75-22, 

75-23, 75-25, 75-27, 75-29, 75-31, 75-32, 75-45, 75-47, 79-12, 79-37, 79-43, 80-43, 81-15, 

81-18, 81-34, 82-22, 84-13, 84-16, 84-18, 84-22, 84-31, 84-37, 85-18, 85-23, 85-25, 85-39, 

85-40, 85-44, 85-46, 86-06, 86-11, 86-21, 86-40, 86-42, 87-01, 87-20, 87-21, 87-22, 87-28, 

87-30, 90-03, 90-04, 90-12, 90-27, 90-28, 90-29, 94-09, 94-10, 95-46, 96-03, 96-04, 96-05, 

96-06, 96-11, 96-12, 97-19, 97-24, 97-26, 97-27, 97-29, 97-38, 98-08, 99-32, 99-37, 99-45, 
101-13,101-35,102-08,103-11,103-33,103-40,103-44,103-48,103-49,105-07,105-09,105-10,105-14, 
105-15,105-18,106-05,106-06,106-07,106-12,106-13,107-08,107-09,107-14,107-15,108-10,108-11, 
109-19,110-06,111-05,111-13,111-30,111-40,111-42,112-09,112-32,114-18,114-19,115-01,115-12, 
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16 P RA1 



0:43:06 2/06/81 **** 

CTAPH W77D 

11,121-12,121-22,121-23,121-25,121-27,121-29,121-31,121-33, 
47,123-1*, 123-20,127-09,129-11, 129-22, 130-07,130-06,133-08, 
22,134-30,135-12,135-13,138-12,138-17,138-24,138-27,138-40, 



03, 32-19, 
03, 61-14, 
30, 76-09, 
16, 85-13, 
15, 93-16, 
09,108-13, 
09,115-10, 
28,121-30, 
10,126-11, 
12,132-08, 



0124124 


L 


RDVERY 


51-17 


0000000 


A 


Ror 


20-08 


0123714 


L 


RD1AGN 


45-39 


0123426 


L 


READPROG 


33-01 


0000004 


A 


READST 


21-06 


0123514 


L 


READSTATE 


39-01 


0125057 


L 


READWRITE 


71-43 


0123441 


L 


READ1PROG 


34-01 


0125125 


L 


RECOVOK 


73-05 


HASACS 


V 


REDKON 


5-39 


0125216 


L 


REDMATE 


74-34 


0000000 


A 


REDON 


17-14 


0126104 


L 


REDONLY 


90-17 


0124752 


L 


REDSTD 


68-45 


0125147 


L 


REDO 


73-32 


0124346 


L 


REDOX 


57-28 


0127007 


L 


REFROM 


115-04 


0126211 


L 


REGOPEN 


95-34 


0124211 


L 


REGPOS 


54-12 


0123567 


L 


REGREAD 


41-22 


0126657 


L 


RELOAD 


111-29 


0126474 


L 


RELOD 


105-19 


0126517 


L 


REM 


105-40 


0123266 


L 


REMOVMES 


26-36 


0126766 


L 


REMOVTU 


114-06 


0113720 


L 


REMOVTU 


65-44 


0126175 


L 


REPACK 


94-01 


0000012 


A 


REPAK 


21-13 


0000007 


A 


REPK 


13-43 


0000000 


A 


REG 


13-16 


0126350 I 


REQR 


101-01 


0000000 


A 


REQSTP 


13-17 



DEF/REF ATTRIBUTES AND REFERENCES 

11 7-15,1 19-10,120-15, 120-35, 12V 
121-35, 121-38, 121-39,121-40,12V 
133-10,134-19,134-20,134-21,134- 
139-11,139-12 

4? N y2 =3 ,. ,, \i~ll' 24 " 28 ' 24_42 ' 24 " 46 ' 24_48 ' 25 " 35 ' 31 " 21 ' 31-25, 31-34, 32- 

36-17, 36-27, 48-03, 54-33, 55-22, 56-10, 58-25, 59-07, 59-14, 59-36^ 59-40^ 60- 

61-19, 64-09, 64-11, 64-25, 70-37, 72-11, 75-19, 75-21, 75-24' 75-26' 75-28' 75- 

76-11, 76-28, 78-46, 79-02, 80-08, 81-23, 81-24, 81-27, 81-28, 83-04, 83-05^ 83- 

85-14, 85-16, 86-31, 87-32, 87-33, 90-23, 92-14, 92-19, 92-21, 92-22, 93-11, 93- 

.S"3?'.??"2?'.??"5 1 ' 97 " 34 ' 97 ~ 35 ' 98 " 38 ' 99 ' 36 ' 99-^101-14,101-27,101-31 ;108- 
109-21,111-24,111-34,111-39,111-41,111-43,111-44,111-45,111-47,111-48^112-10^115- 
115-14, 115-19,116-13,116-14,117-11, 117-12, 117-13, 117-14, 117-27,117-28, 120-34'121- 
121-32,121-34,121-36,121-41,123-12,123-13,123-32,123-33,125-10,125-12,125-13^26- 
127-10,127-11, 128-03,128-08, 128-15, 128-16, 128-20,128-21, 128-25, 128-26, 129-10J29- 
132-10,132-12,136-12,136-13,137-11,137-12 ' ' ' 

48-28, 48-35 
M=1 S=10 N=0 CL=3 

55-11 

29-44 

33-34, 73-21, 85-48 

27-36 

69-21, 75-01 

29-45 

71-07 

53-39 

70-22 
M=1 S=16 N=0 CL«3 LIBNUM»10 
132-13 

90-09 

67-09, 67-36 

57-29, 70-20 

57-11, 57-20 
114-17 

95-11 

54-04 

39-25 
111-38,112-20 
105-39 
105-36,105-38 

25-46, 26-10, 28-05 

26-38, 42-16, 64-39, 65-49,105-43 

65-24 
6-16 

30-17 
H=1 S=15 N=7 CL=3 LIBNUM=10' 
H=4 S=0 N=0 CL-3 LIBNUM=10 

97-19, 97-38,103-40,103-41 

H «1 S =4 N-0 CL*3 6-18, 26-40, 30-20, 30-23, 32-04, 85-24, 92-18, 95-47, 96-02,102-08, 



6-15, 57-39, 68-38, 72-27, 72-29, 90-10, 90-18,115-12, 



30-12, 30-19, 31-34, 32-01, 32-03, 49-13, 93-16, 94-10 
26-40, 29-40, 29-41, 32-19, 45-14, 85-25, 92-19, 93-15, 
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C07 



PATCH HISTORY 
VALUE T NAME 



0000000 
0000002 
0125223 
012*776 
CTSD 
0124604 
. 0124400 
0126733 
0125435 
0125234 
0124763 
0124315 
0125327 
0123551 
0124734 
0124657 
0000000 
0125054 
0125571 
0126103 
•ABSOLUTE V* 
ITE REQUEST* 

• ACTIVE TAP 
E BUFFER.' 

BLOCK ADDR 
ESS ' 

• BUFFER OVE 
RFLOW SET.' 

' BEGINNING 
OF TAPE' 

• BUFFER REA 
DY FLAG.* 

BUFFER COU 
NT' 

• CLIENT NUM 
BER ' 

CLIENT NUM 
BER ' 

• COMMAND CO 

DE' 

•COMPARE BIT 
i 

' LOW BITS 
F CLIENT CON 
TROL ROUTINE 



REQUEST 

REREAD 

RERITE 

RES 

RESDIR 

RESDUP 

RESETNO 

RESNUMB 

RESOLVE 

RESRTN 

RETRYSTATE 

REVERIFY 

REW 

REWINDTU 

REUINDTUS 

REWINDU 

REWND 

REWRITE 

RLODBX 

RLPLY 



T RMK ABWRT 



T RMK. 
T RMK, 
T RMK 
T RMK 
T RMK 
T RMK 
T RMK 
T RMK 
T RMK 
T RMK 



OEF/REF ATTRIBUTES AND REFERENCES 
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6-15 
21-04 
74-44 
70-25 

4-31 
62-19 
58-20 
112-27 111-07 
80-42 80-24 



ACTIV 
BLKADR 
BOFL 
.BOT 
.BR 

BUFCT 
.CLIENT 
.CLNT 
.COM 
COMPROK 



'0 CL-3 LIBNUM=10 102-32,103-17,103-20,103-26,103-42 



103-11 

W=4 S=7 N< 

121-37 

70-23 

73-26 

90-23, 90-24,111-05,112-08,112-10,112-28 

57-24 

57-14 



75-11 
70-01 
56-05 
76-41 
40-33 
68-17 
64-22 



CRC' 



68-18 



70-26, 73-22, 75-06 

27-34 

54-27 

77-10 

39-27, 

67-15 

64-15, 64-34, 76-42 
19-14 W=1 S=15 N=0 CL«3 
71-36 70-16 
83-06 83-17 
90-14 89-30, 89-4*, 90-11, 90-19 

LIBNUM=10 



LIBNUM=10 



T RMK CONTLPT 
T RMK CRCBLK 
T RMK~DATA ARE 



LIBNUM-10 
LIBNUM=10 
LIBNUM=10 
LIBNUM=10 
LIBNUM=10 



LIBNUM=10 
LIBNUM=10 
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D07 


PATCH HISTORY 






VALUE 


T 


NAME DEF/REF ATTRIBUTES 


AND REFERENCES 






A LIBNUM«10 






' DATA PETEC 










T.' 


T 


RMK DDT 






•FILE CONTIN 










UED ON NEXT 










TRACK.' 


T 


RHK DEOF 






* DEVICE COO 










E FOR TAPE.' 


T 


RMK DEVICODE 








T 


RMK.DIAGBITS LIBNUM*10 






' DUPLICATED 










FILE' 


T 


RMK DUP LIBNUM*10 






•DUPL.' 


T 


RHK_DUPL 







0:43:06 2/06/61 **** 
CTAPH W77D 



' DEVICE COD 
E' T RMK DVIC 

" T RMK ENDTRK 

'EOF' T RMK~EOF 
' END OF TAP 
E. ' T RMK EOT 

'ERROR NOT A 
LLOWED BIT' T RMK ERNA 
' EVEN OR OD 
D TU FOR EXP 
LICIT TAPE R 
EQUESTS.' T RMK EVOD 
' EXPLICIT T 
APE UNIT REQ 

UEST' T RMK EXPLIC 
" T RMK EXPOP 

'CHARACTER 2 
OF FILE NAM 
E' T RMK FILENAM 

' FILL OCCUR 
ING.' T RMK FILL 
' FILE ADDRE 
SS NAME LOW 
ORDER BITS ( 

LOB)' T RMK FILNAM 
' PYSICAL ST 

ART OF FILE' T RMK FILSTRT 
' HO ADR BIT 

S' T RMK HOADRBIT 

•HIGH BITS 

F CONT ADR.' T RMK HOCONPT 
•HIGH BITS 

F NAME ADR.' T RMK HOFILNAM 
' INTERRUPT 

OFF.' T RMK INTOFF 
' I/O SUCCES 
S FLAG.' T RMK IOCMP 






LIBNUM=10 
LIBNUM=10 
LIBNUM=10 



LIBNUM=10 



LIBNUM=10 



LIBNUM=10 
LIBNUM=10 



■ 



LIBNUM=10 

LIBNUM=10 
LIBNUM-10 
LIBNUM*10 

LIBNUM=10 






. 
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• • 



JSL 



PATCH HISTORY 
VALUE T NAME 

• LAST BLOCK 
S IN FILE.' T RMKJ.ASTBLK 

• CLIENTS 1/ 
ROUTINE AD 
RS CLO BITS)'T RMKJ.OADRBIT 

• LOAD STATE 
SET UP.' T RMKJ.ODST 

• CLIENTS LO 
GICAL INDEX 
INTO FILE' T RMKJ.OGBLK 

• LAST BLK I 

N FILE' T RMKJ.STBLK 
' LAST ORDER 

SENT TO TDC 

AT BASE' T RMKJ.STCOM 

•LAST GOOD B 

LOCK READ IN'T RMKJ.STGOOD 
•LAST TRACK' T RMKJ.TRK 

• MAINTENANC 
E REQUEST 81 

T* T RMK_MAINT 

' MANUAL ENA 
BLE' T RMK MANE 

• MANUAL OPE 
RATION ACTIV 

E' T RMK MOP 

• MAINTENANC 

E ACTIVE.' T RMK.MTCE 
•ASCII CHARA 
CTER 2 OF FI 
LE NAME' T RMK.NAME 
' OPEN-SEIZE 
FLAG* T RMK_OPSZ 

• ORIGIN OF 
FILE. BLK AN 

D TRACK.' T RMKJ5RIGIN 
' OTHER UNIT 
USED IN REC 
OVERT ALREAD 
Y' T RMK OTHERU 

• PHTSICAL L 
OCATION OF F 

ILE.' T RMK PHYBLK 

'POSITION VE 

RIFIED' T RMK POSOK 

• PARALLEL P 

ARITY ERROR. *T RMK PPE 

•PRESENT TAP 

E POSITION' T RMK.PTP 



DEF/REF ATTRIBUTES AND REFERENCES 
LIBNUM=10 
LIBNUM=10 

LIBNUM=10 

LIBNUM«=10 
LIBNUM=10 

LIBNUM=10 
LIBNUM=10 
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LIBNUM=10 
LIBNUM»=10 

LIBNUM=10 

LIBNUM=10 

LIBNUM=10 
LIBNUM=10 

LIBNUM=10 
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PATCH HISTORY 


VALUE 


T 


NAME DEF/REF 


* BUFFER UNI 






T READY' 


T 


RMK RDY 


' TAPE IN RE 






AD ONLY STAT 






E. ' 


T 


RMK REDON 


•repack tape 






REQUEST' 


r 


RMK REPK 


' REQUEST BI 






TS' 


T 


RMK REQ 


' STOP REflUE 






ST BIT* 


T 


RMK REQSTP 


' REQUEST BI 






TS' 


T 


RMK REQUEST 


' TAPE REWIN 






DING.' 


T 


RMK REWNi) 


'RETURN INDE 






X* 


T 


RMK RTNDX 


'SIEZE FUNCT 






ION IP.' 


T 


RMK_SEEZ 



JEBL 



ATTRIBUTES AND REFERENCES 



LIBNUM-10 
LIBNUM-10 
LIBNUM=10 

LIBNUM-10 

LIBNUM=10 
LIBNUM-10 
LIBNUM-10 



LIBNUM=10 
LIBNUM=10 



LIBNUM-10 

LIBNUM-IO 
LIBNUM-10 



0:A3:06 2/06/81 **** 
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•SEEN TAPE 
FF REEL' T RMK SNER 
'BLOCK OUT 
F ORDER READ 
IN' T RMK SQERR 

* CRC FAIL' T RMK SRFAL 
' STATE FLAG 

S (A BITS PE 

R STATE)' T RMK STATEFLG 

* STATE STAC 
K WORD (4 BI 
TS PER STATE 

)' T RMK STATEWRD 

•STOP DATA S 

TOKAGE' T RMK STPST 
'STUFF ACTIV 

E' T RMK STUFF 

' SAVE THE B 
ASE BLOCK OF 
FILE' T RMK SVBASE 
' LAST BASE 
LEVEL TDC CO 

MMAND* T RMK SVCOM 
' FLAG SAVE 

WORD' T RMK SVFLG 
' SAVE CLIEN 
TS LOGICAL I 

NDEX' T RMK SVINDX 
•SAVED LAST 
GOOD BLOCK R 
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6Q7 



PATCH HISTORY 
VALUE T NAME 



DEF/REF ATTRIBUTES AND REFERENCES 



0:43:06 2/06/81 **** 
CTAPH W770 



EAD IN' T RMK.SVLSTGOO 

D 
' STATE SAVE 
WORD' T RMK.SVST 
•NO. OF SYST 

EM FILES' T RMK.SYFILE 
' TAPE NUMBE 

R' T RMK_TAPNO 

•TAPE NO.' T RMK_TAPNUM 

• TAPE IN MO 

TION' T RMK.TIM 

' TIME CONST 

ANT STORAGE' T RMK_TIMEK 

' TAPE OFF R 

ECL.' T RMKJTOR 

•TAPE OF REE 

L FLG' T RMK TORLOK 

• TAPE TRACK 

' T RMK TRACK 

• TRACK BIT* T RMK_TRCK 
•TRACK' T RMK_TRK 

• TRACK CODE 

S' T RMK TRKS 

•OOS BIT.' T RMK TSTATE 

• TAPE UNIT 

READY.' T RMK_TUR 

• 1 IF ONLY 
ONE DATA WOR 

D IF 2.' T RMK.TYPER 

■ UNLOAD STA 

TE SET UP.' T RMK.UNST 

•DISPLACEMEN 

T IN BLKS TO 

USER DIRECT 
ORY' T RMK USRDIST 
'TRACK VERIF 
Y WILL BE DO 

NE ON' T RMKJ/ERTRK 
' WRITE ENAB 

LE.' T RMK WENBL 
'NO. OF WORD 
S FOR FILE N 
AME' T RMK WORDCNT 

■< T RMK WRTABS 

• WRITE STOP 
INT. EXPECT 

ED.' T RMK.WSI 
•CLIENT WISH 
ES INTERRUPT 



LIBNUM=10 



LIBNUM=10 



LIBNUM=10 

LIBNUM=10 
LIBNUM=10 



LIBNUM=10 
LIBNUM=10 



LIBNUM=10 



LIBNUM=10 



LIBNUM=10 
LIBNUM=10 



LIBNUM-10 
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A08 



PATCH HISTORT 
VALUE T NAME 



CONTROL IF 
BR FLAG=0' 

0123611 
0124561 
0123620 
0126153 
. 0127033 
0126131 
0127310 
012737* 
0125241 
0126062 
0125573 
0125755 



•+0' 



0126727 

0127131 

0126566 





RMK 5MRTN 

RMVANDPO 

RMVCL 

RMVCLOSE 

RMVENT 

RHVLED 

RMVTAPE 

RPTTAPE 

RSTDUP 

RSTNOPO 

RSTTAPE 

RTESTIT 

RTNCLNT 

RTNDX 

RTNOKCOD 

RTNZR 

RTRNONE 

RO 



1 R R1 



DEF/REF 



ATTRIBUTES AND REFERENCES 
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50- 



41-47 33-25, 45-43, 

61-42 61-39 

42-07 41-46, 42-05, 54 

92-20 92-13 
116-01 92-24,115-39 

92-01 6-22 
128-01 6-19 
130-01 6-20 

75-17 70-34 

89-01 6-21 

83-09 83-12 

86-05 80-01 

W=3 S=4 
112-13 112-07 
119-17 119-14 
108-18 108-15 

LIBNUM=3 



43, 54-39, 69-05 
48 



N=0 CL«=2 LIBNUM=10 



98-32, 98-37 



25-41, 26 

30-18, 31-09, 31-46, 32' 

45-49, 46-02, 47-44, 47 

55-25, 55-33, 55-37, 58 

60-21, 60-22, 60-44, 62 

67-47, 67-48, 67-49, 70- 

73-21, 73-26, 73-27, 75 

75-29, 75-32, 75-33, 75- 

84-20, 84-45, 85-24, 85' 

87-38, 89-29, 89-31, 89- 

92-15, 92-18, 92-19, 92' 

97-39, 98-09, 98-23, 99- 

102-40,102-41 ,103-22,103- 

107-12,108-11,108-12,108- 

114-20,117-28,117-36,119- 

121-34,121-35,121-36,121- 

123-41,125-10,125-13,126- 

135-12,136-12,136-14,137- 

LI8NUM=3 25-45, 26- 

36-20, 37-22, 37-23, 39- 

42-06, 42-11, 42-14, 43- 

47-47, 48-01, 48-03, 48- 

50-11, 50-12, 50-13, 51- 

54-17, 54-20, 54-24, 54- 

58-13, 58-38, 58-39, 59- 

65-39, 65-40, 65-41, 65- 

70-41, 71-29, 71-30, 72- 

83-12, 83-43, 85-17, 87- 

95-35, 96-06, 96-07, 97- 

105-14,105-15,105-35,106- 

109-11,109-13,109-14,109- 



-30, 27- 
-04, 32- 
-45, 51- 
-25, 59- 
-29, 62- 
-42, 71- 
-06, 75- 
-45, 79- 
-25, 85- 
-33, 89- 
-21, 93- 
-32, 99- 
-23,103- 
-13,109- 
-10,121- 
-37,121- 
-10,128- 
-11,137- 
-35, 27- 
-21, 39- 
■32, 44- 
-04, 48- 
■29, 51- 
■46, 55- 
•12, 59- 
■45, 67- 
■11, 72- 
•45, 89- 
•36, 97- 
■07,106- 
■23,110- 



-25, 27 

-18, 33 
-12, 53 
-24, 59 
-30, 65 
-03, 71- 
-19, 75- 
-08, 80- 
-40, 65- 
-35, 89- 
-10, 93 
-33, 99 
-24,103 
■06,109- 
•12,121- 
■38,121- 
•03,130- 
•13,138- 
■24, 27- 
•39, 39- 
•15, 44- 
■05, 48- 
■30, 54- 
■23, 55- 
■13, 59- 
•07, 67- 
•30, 72- 
•12, 89- 
•38, 98- 
■09,106- 
•06,110- 



-26, 27 
-32, 33 
-25, 54 
-25, 59 

-06, 65 
-12, 71 
-20, 75 
-45, 80 
■41, 85 
-37, 89 
-14, 93 
-34, 99 
-33,103- 
-22,110- 
■13,121- 
■40,121- 
■07,131- 
■27,138- 
■27, 27- 
■40, 39- 
•16, 45- 
•37, 48- 
•05, 54- 
28, 55- 
■34, 60- 
•28, 67- 
•49, 74- 
■24, 89- 
•38, 99- 
•11,106- 
•08,110- 



-29, 27 
-34, 35 
-01, 54- 
-36, 59 
-27, 65 
-26, 71 
-21, 75 
-46, 80- 
-42, 86- 
-38, 90- 
-15, 94- 
-37, 99- 
-34,103- 
-12,111- 
■27,121- 
-41,121- 
■07,132- 
■28,138- 
■28, 28- 
■41, 39- 
■13, 45- 
■38, 48- 
■06, 54- 
■34, 56- 
•04, 62- 
•29, 67- 
•25, 74- 
•25, 89- 
•36,102- 
•13,107- 
■11,110- 



-31, 29 
-22, 36 
-02, 54 
-37, 59 
-35, 65 
-27, 71 
■22, 75 
-47, 81 
-21, 86 
-23, 90 
-09, 95 
-38, 99 
•36,106 
■23,112 
-28,121 
■47,121 
■10,132- 
■33,138- 
■03, 31- 
■42, 39- 
■14, 45- 
■39, 49- 
07, 54- 
■06, 56- 
•34, 62- 
•31, 67- 
■26, 75- 
•34, 89- 
■03,102- 
■13,*,08- 
•12,111- 



-41, 29- 
-21, 37- 
-23, 54- 
-38, 59 
-36, 65- 
-28, 71- 
-24, 75 
-18, 83- 
-27, 86 
-24, 90- 
-34, 95 
-39,102- 
-05,106- 
-08,112- 
-29,121- 
-48,123- 
-12,132- 
•43,138- 
•21, 31- 
-44, 40- 
■20, 45- 
-26, 49- 
•08, 54- 
•08, 57- 
■36, 62- 
■32, 68- 
■12, 76- 
■35, 92- 
•07,103- 
■09,108- 
■39,111- 



-42, 30- 
-33, 41 
-24, 54- 
-40, 59- 
-46, 65- 
-45, 72- 
-25, 75- 
-04, 83- 
-28, 86- 
-28, 92- 
-41, 97- 
-02,102- 
-06,106- 
-20,112- 
-30,121- 
-12,123- 
-13,133- 
-47,138- 
-22, 32- 
■05, 40- 
-21, 45- 
-27, 49- 
■09, 54- 
•08, 57- 
■40, 62- 
•38, 70- 
■12, 79 
•06, 92 
■35,103 
•10,108 
■40,111 



■14, 30- 
-48, 41- 
-26, 55- 
-48, 59 
-47, 66- 
-06, 72- 
-26, 75- 
-05, 83- 
-29, 87- 
-11, 92- 
-04, 97- 
-06,102- 
-08,106- 
-32,114- 
-31,121- 
-14,123- 
-09,134- 
-48,138- 
-18, 32- 
-06, 41- 
-22, 46- 
-28, 49- 
-10, 54- 
■44, 58- 
•41, 64- 
-12, 70- 
-09, 80- 
■07, 92- 
■36,103- 
■13,108- 
•41,111- 



■15, 30-17, 
■49, 43-43, 
•03, 55-04, 
■49, 60-03, 
•04, 66-05, 
•09, 72-19, 
■27, 75-28, 
•42, 84-19, 
•32, 87-33, 
•12, 92-14, 
■28, 97-29, 
36,102-37, 
•10,106-12, 
•15,114-16, 
32,121-33, 
15,123-33, 
19,134-21, 
49,139-11 
19, 33-35, 
45, 42-04, 
04, 47-37, 
42, 50-09, 

13, 54-14, 
11, 58-12, 

14, 64-37, 
32, 70-33, 
32, 83-07, 
08, 93-11, 
37,103-44, 
14,109-07, 
42,111t43, 
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BOS 



PATCH HISTORr 
VALUE T NAME 

'12 R R10 



13 R R11 



0:43:06 



DEF/REF ATTRIBUTES AND REFERENCES 



2/06/81 **** 
W770 



14 R R12 

15 R R13 

16 R R14 

17 R R15 
2 R R2 



3 R R3 



4 R R4 

5 R R5 

6 R R6 



111-44,111- 
129-14,129 
LIBNUM=3 
42-10, 45- 
60-36, 61- 
82-05, 82- 
99-34, 99- 
121-18,126- 
LIBNUM=3 
65-15, 65- 
109-13,109- 
LIBNUM=3 
LIBNUM=3 
LIBNUM=3 
LIBNUM=3 
LIBNUM=3 
35-12, 35- 
54-17, 55- 
62-33, 62 
74-10, 74 
83-05, 83 
90-08, 90 
101-21,101 
103-46,103 
111-13,111 
115-02,129 
138-33,138 
LIBNUM=3 
50-19, 50 
58-14, 
67-34, 70 
81-41, 82 
84-18, 85 
101-35,101 
111-24,111 
UBNUM=3 
80-34, 83 
105-26,109 
128-11,128 
138-47,138 
LIBNUM=3 

77-02, 77 

111-31,114 

LIBNUM=3 

35-12, 35 

76-31, 78 

92-08, 92 

105-08,105 

127-11,128 



79 
84 
95 



58- 



45,111-46,111 
15,129-18,129- 
25-07, 25 

40, 48-49, 50 
23, 64-13, 69- 
11, 82-20, 82- 

41, 99-43, 99- 
12,128-21 

25-43, 25- 
17, 67-45, BO- 
ld, 109-18, 109' 
86-28,128 
86-30 
45-04, 45 
45-05, 45 
24-22, 26 

20, 37-30, 37 
31, 55-34, 56 

35, 62-36, 62 
11, 74-27, " 
19, 84-10, 
10, 90-18, 
29,101-36,102 
48,105-09,105 
14,111-17,111- 
12,129-13,129- 
38,138-43 

24-25, 26- 

21, 50-22, 53- 
39, 58-40, 59- 

36, 70-37, 72- 
07, 82-08, 82- 

22, 85-23, 85- 
36,105-21,105' 
25,111-26,111' 

26-18, 27' 

34, 83-38, 84 

07,109-23,111 

13,128-14,128 

-49 

54-30, 55 

-08, 77-15, 95 

33,115-19,126 

24-19, 24 

13, 35-14, 59 

-45, 78-49, 79 

-12, 92-22, 95 

-10,111-30,111 

06,128-11,132 



47,112-10,114-04,114- 
22,129-23,129-24,138' 
14, 26-27, 27-16, 33' 
36, 50-40, 51-20, 51- 
01, 73-34, 75-30, 75 
41, 83-35, 84-09, 84' 
45,105-18,114-43,116 

47, 26-02, 26-18, 27 
23, 80-31, 81-31, 82 
20,109-21,116-19,120 
26 



CTAPH 



■33,114-43,117-14,117-43,124-07,129-10,129-11, 

■32,138-37,138-38,138-39,138-48 

*1 , 34-08, 36-16, 39-46, 39-49, 40-38, 41-30, 

■26' 53-32' 54-34, 55-42, 55-45, 60-17, 60-27, 

•31 ^ 75-35^ 76-26^ 76-39, 77-09, 79-11, 81-38, 

-24^ 84-42, 86-44, 87-12, 90-30, 96-27, 96-28, 

•15^116-20,116-23,117-27, 117-43, 118-13,120-11, 

-17, 47-42, 51-02, 51-06, 53-18, 61-04, 65-12, 
-02^ 83-16, 84-39, 84-40, 85-03, 99-49,105-37, 
-29,126-20,126-21,128-25 



33, 46 

35, 46 
40, 26 
31, 37 
07, 56 
42, 62 
10, 79- 
12, 84- 

36, 95- 
32,103- 
■11,105- 
•18,111- 
■15,129- 

•15, 26- 
■12, 54- 
•13, 59- 
■27, 72- 
•13, 82- 
-48, 95- 
■23,107- 
■38,127- 
-17, 54- 
-25, 84- 
■26,111' 
-17,128- 

-08, 55 
-34, 96 
-21,128 
-21, 24 
-45, 59 
-05, 79 
-35, 96 
-32,111 
-08,132 



16, 86 

17, 86 

42, 27 
•32, 40 
•08, 59 

43, 62- 
•14, 80- 
■13, 86- 
•45, 96- 
■16,103- 
•13,105- 
■19,111- 
■24,133- 

■44, 27- 
-23, 54- 

-14, 59- 
-?9, 73- 
-14, 82- 
-45, 96- 
-09,107- 
-10,127- 
-18, 54- 
-28, 87- 
-27,111- 
-18,128- 

-40, 59 
-10, 96 
-08,128 
-28, 24 
-46, 64 
■27, 80 
■27, 96 
•35,114 
•09,132 



•06, 95- 
•11, 95- 
•18, 27- 
■40, 40- 
•32, 59- 
■44, 62- 
■13, 81- 
•46, 86- 
■08, 96- 
■17,103- 
-15,107- 
-20,111- 
-08,133- 

24, 36- 
32, 54- 
43, 60- 
06, 73- 
28, 82- 
02, 96- 
11,107- 
11,138 
19, 5* 
19, 87 
■34,111 
22,128 

■35, 59 
■11, 97 
•09,138 
•43, 24 
■09, 64 
■26, 81 
•30, 96 
■19,116 
■12,132 



32, 96 

33, 96 
23, 27- 

41, 47- 
39, 59- 

46, 67- 
15, 81- 

47, 87- 
14, 98- 
18,103- 
08,107- 
21,112- 
■09,133- 

•14, 36- 
■33, 55- 
■02, 61- 
■08, 73- 
-30, 82^ 
-03, 97- 
■13,107- 
■22,138- 
-20, 58- 
-20, 95- 
-37,121- 
-23,138- 

-45, 59- 
-27,102- 
-25,138- 
-45, 25- 
-10, 64- 
-16, 83- 
-32, 97- 
-14,123- 
-15 



•04, 98- 
■05, 98- 
-26, 27- 
-37, 48- 
-40, 60- 
-20, 67- 
-16, 81- 
-01, 87- 
-32, 98- 
-20,103- 
-10,107- 
-28,112- 
-10,138- 

19, 36- 
36, 55- 
08, 61- 
10, 74- 
34, 82- 
05, 97- 
15,109- 
29,138' 
26, 58' 
46, 95- 
21,12V 
24,138 

■47, 59 
•02,102 
•29,138 
•35, 26 
•25, 64 
■47, 83 
•10, 97 
■20,123 



39,101- 
40,101- 
28, 29- 
22, 50- 
07, 61- 
34, 71- 
34, 81- 
02, 87- 
37, 98- 
26,103- 
12,107- 
33,112- 
•12,138- 

•27, 42 
37, 55 
•10, 61 
•11, 78 
•35, 82 
•06, 97 
•10,109 
-41 

-40, 74 
-47, 95 
■22,121 
■25,138 

-49, 60 
-06,105 
-40,138 
-15, 26 
-34, 66 
-48, 83 
-24, 97 
-33,125 



11,101- 
12,101- 
39, 29- 
10, 50- 
•10, 61- 
■04, 71- 
•35, 81- 
•14, 87- 
■38,101- 
■30,103- 
•14,109- 
•34,114- 
•17,138- 



33 

34 

40, 31- 

11, 54- 

11, 61- 

05, 73- 

36, 82- 

16, 90- 

•13,101- 

•40,103- 

•06,109- 

■18,114 

■22,138 



•11, 42-14, 47 
•38, 57-39, 57 
■18, 61-19, 67 
■44, 79-01, 79 
•43, 82-44, 83 
•11, 97-19,101 
•14,109-19,111 



34, 32-01, 
15, 54-16, 
20, 61-21, 
08, 74-09, 
24, 82-26, 
03, 90-04, 
14,101-15, 
41,103-42, 
22,111-05, 
•19,114-20, 
23,138-31, 

•34, 50-13, 
■41, 58-13, 
■29, 67-30, 
■26, 81-40, 
•03, 83-17, 
■21,101-31, 
•19,111-21, 



13, 74-14, 74-16, 80-09, 
49,101-27,103-49,105-12, 
39,128-04,128-05,128-08, 
■26,138-31,138-32,138-39, 

■01, 60-06, 64-12, 76-38, 
-17,105-39,111-28,111-;0, 
41 

44, 26-47, 27-22, 27-23^ 
02, 76-09, 76-10, 76-28, 
49, 89-25, 90-04, 90-29, 
•26,102-03,102-07,105-07, 
■14,126-11,127-08,127-09, 
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C08 



PATCH HISTORY 

VALUE T NAME 

012466S L R6BX 
7 R R7 

10 R RS 

11 R R9 



0:43:06 2/06/81 **** 



DEF/REF ATTRIBUTES AND REFERENCES 



CTAPH 



W77D 



TTYTBL 
CTVTAB 



X SXEQERR 
V SXTATSET 



14 P 



TTYTBL 
0124552 
0125i23 
0100007 
0127522 
0000005 
0000005 
0123430 

CSYSUB 
0124312 
0125413 
0125411 
0127051 
0000007 
0124041 
0002137 
0002153 
0002163 
0002157 
0002167 
0002173 
0002177 
0002147 
0002133 
0002123 
0002127 
0002143 
0002117 
0002113 
0002103 
0002107 
0126013 
0127142 
0123723 



SXTATSETX XC 
TAPH 

sxw 

SCANSTOP 

SCORPO 

SD 

SECNDTRK 

SEEZ 

SEIZST 

SENOIT 

SENDMIO 

SENDO 

SENDSTAT 

SEORD 

SEORDR 

SEQERR 

SE8TRK 

SERNO 049285 

SERNO 049718 

SERN0~049741 

SERNO 050102 

SERNO~050271 

SERNO 052288 

SERNO 056871 

SERNO 059187 

SERNO 059698 

SERNO 061018 

SERNO 061392 

SERN0~061529 

SERN0_062113 

SERNO 062215 

SERNO 063047 

SERN0~063638 

SETABEUP 

SETCOV 

SETIM 



64-33 64-29, 64- 
LIBNUM=3 

98-25,111- 
LIBNUM=3 

71-23, 71- 
115-14,115- 
LIBNUM=3 

47-33, 47- 

78-46, 79- 
111-06,111- 
118-45 118-45 

LIBNUM=12 
109-09,120- 



40 

39-49, 
34,111-35, 

24-27, 
40, 72-16, 
19,117-11, 

24-42, 
48, 49-07, 
02, 79-04, 
12,112-06, 



40-01, 59- 

115-08,115- 

24-28, 24- 

75-14, 87- 

117-13,117- 

24-43, 24- 

50-04, 50- 

79-12, 80- 

112-09,116- 



46, 60- 
10,117- 
41, 25- 
30, 87- 
14,128- 
44, 24- 
17, 50- 
08, 83- 
13,116- 



01, 90-05, 90-27, 92-10, 92-22, 95-06, 95-27, 96-36, 

10,117-12,123-11,123-13,128-15 

12, 41-36, 47-32, 49-06, 49-07, 49-21, 49-35, 50-04, 

31, 87-33, 87-45, 88-19, 96-39, 97-30, 97-35,115-09, 

45, 24-46, 24-48, 25-35, 26-17, 36-17, 36-27, 40-34, 

38, 50-39, 50-40, 51-04, 64-11, 64-25, 76-11, 76-28, 

44, 90-06, 90-29, 96-38, 97-31, 97-34, 99-39,105-10, 
14,117-15,117-28,123-32,124-07,126-11,128-20 



33 



27-21, 35-16, 44-25, 44-35, 46-22, 68-36, 74-20, 81-26, 8S-12, 97-33,103-32, 



LIBNUM=12 
72-16 72-16 

61-34 57-12, 57-17, 57-21, 57-23, 67-17 
72-45 72-28, 74-37 

82-20 



LIBNUM=10 
138-46 138-42 

W=1 S=17 N=5 

54-02, 98-09 

34-09, 40-04, 40-09 

99-48 



13-35 
21-07 
33-22 
4-22 
55-46 
80-11 
80-07 



CL-3 LIBNUM=10 40-03, 40-36, 62-38, 84-22, 97-10, 97-24 



55-43 
80-34 
79-26 



116-24 116-21 
118-43 85-17 



49-34 
143-16 
144-12 
145-02 
144-25 
145-15 
145-27 
146-02 
144-02 
143-02 
142-12 
142-23 
143-27 
142-02 
141-24 
141-02 
141-13 

87-10 



49-08 



87-03 



120-19 120-16 
46-01 56-01 
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0123722 
0127432 
0124247 
0125117 
0125110 
0124225 
01*3432 
• 0124065 
0115024 
0124740 
0126626 
0123475 
0000016 
0126314 
0125615 
•TXAPE' 

0000000 
0000000 



SETIME 

SETMAINT 

SETOOR 

SETST 

SETSTAT 

SEZSRCH 

SIEZURE 

SKIPCHK 

SKIPRWND 

SKPREWND 

SLWRTN 

SNDINIT 

SNER 

SPECLOSE 

SPEEDTST 

SPWORD 

SOERR 

SRFAL 



0010007 A SST 
0125312 L STANDINT 
0000013 A STATEFLG 



0000012 A STATEWRD 



'+0' 



0000000 
0127401 
0126553 
0000011 
0127405 
0125600 
0000000 
0000106 
0123757 
0000000 
0125663 
0127275 
0000000 
0000002 
0000003 
0000001 
0000004 
0000005 
0000000 
0125141 
CINIT 



STATOK 

STATONL 

STATS ET 

STATST 

STATWRQ 

STORWRD 

STPST 

STPTIM 

STRPOS 

STUFF 

STWAIT 

SUCED 

SV REG 

SVBASE 

SVCOM 

SVFLG 

SVINOX 

SVLSTGOOD 

SVST 

SWITAPE 

SWITCHCC 

SYFILE 



0:43:06 



DEF/REF ATTRIBUTES AND REFERENCES 



CTAPH 



2 '06/81 **** 
W770 



51-13, 53-40, 73-46 

6-23 
54-21 
72-35 

49-43, 58-01, 73-01 
54-11 
27-37 
50-08 
68-22 
67-14 

110-16 110-09,110-13 
36-26 36-19 

W=1 S=16 N=16 
98-26 
54-29, 55-07 



45-48 
134-01 
54-45 
72-38 
72-31 
54-22 
43-01 
50-16 
67-40 
68-21 



14-06 

98-41 

110-01 



CL«"3 LIBNUM-10 26-05, 26-49, 27-01 



17-15 
13-22 



76-22 
14-01 



W=1 S=17 
W=1 S=11 

71-11, 71- 
LI8NUM=10 

76-13 
W=20 S=0 

51-05, 58 

71-44, 73 
121-29,121 
13-49 W=20 S=0 
107-08,107 



21-21 
131-01 
108-01 

132-01 
83-15 
13-23 

48-02 

20-12 

84-27 

126-19 



6-24 

6-25 

LIBNUM=10 

6-26 

83-11 

W=1 S=12 

LIBNUM=10 

47-49 
W=1 S=14 

84-28 
126-15 



N=0 CL=3 LIBNUM»10 
N=0 CL=»3 LIBNUM=10 
■46, 72-07, 74-06, 74-36, 
42-10 

N=13 CL=3 LIBNUM=10 
■08, 61-29, 61-46, 62-13, 
•27, 73-45, 74-29, 75-22, 
■39 

N=12 CL=3 UIBNUM=10 
■14,121-27,121-38 



102-32 
N=0 CL=3 LIBNUM=10 
N=0 CL=3 



85-14, 85-16,109-16,109-21- „ 

41-41, 49-03, 49-29, 53-22, 61-43, 70-38, 70-39, 71-06, 
74-46, 75-18, 85-39,120-35,121-11 

27-27, 40-45, 45-03, 45-11, 45-15, 45-37, 48-38, 49-27, 
65-39^ 65-41 ^ 67-32^ 67-47, 67-49. 70-35, 71-26, 71-28, 
75-32, 84-44,106-07,106-13,107-09,107-15,110-06,110-10, 

27-25, 30-18, 54-01, 75-20, 84-18, 85-23,106-06,106-12, 



51-18, 51-35, 55-10, 58-07, 73-38, 74-38, 82-22, 84-37 



15-10 W=20 
15-11 W=20 



15-09 
15-12 
15-13 
15-08 
73-20 
4-11 



W=20 
W=20 
W=20 
W=20 



S=0 
S=0 
S=0 
S=0 
S=0 

s=o 



N=2 
N=3 
N=1 
N=4 
N=5 
N=0 



CL*3 
CL=3 
CL=3 
CL=3 
CL=3 
CL=3 



72-08, 72-20, 73-16 
W=10 S=0 N=0 CL=2 



75-26,121-36 
75-30,121-32 
75-21,121-30 
75-24,121-34 
71-04, 74-09, 75-28,121-41 



111-17 



■ 
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PATCH HISTORT 
VALUE T NAME 



0123663 I 

CTSD . V 

U 

TTYTBL X 

CTVTAB V 

14 P 

CTVTAB V 
14 P 



TTYTBL X 

0123206 L 

BLMMA V 

TDATA V 

TDATA V 

TDATA V 

TDATA V 



SYSDIR 

SYSTIM 

T 

TXAPE 

UIMCHK 

TXIMCHKX 

YSUB 

TXIMOUT 

TXIMOUTX 

YSUB 

TXURER 

TAPEHL 

TAFEIRTN 

TAPEOPTS 

TAPEQUE 

TAPEQUO 

TAPETBL 



XCS 



DEF/REF ATTRIBUTES AND REFERENCES 

44-42 43-34 
4-33 55-36 

77-32 77-32, 88-07, 96-48,115-33,118-07,124 
LIBNUM=12 119-13 



XCS 



0125366 L TAPINT 
0125353 L TAPINTE 
0125361 L TAPINTO 
0000010 A TAPNO 



•+6' 



BLMMA 
0123216 
0006415 
0124711 

CTSD 



CTSD 

BLMMA 
0125423 
0116774 
0002415 
0004415 
0000000 

CSYSUB 
0000014 

0124143 
CSYSUB 
0127124 
0000006 
0000215 
0000000 



TAPNUM 

TAPOIRTN 

TAPSTORD 

TBS 

TB15 

TCBADR 



TOCO 

TEMPINH 

TESTSTA? 

TFAPCH2 

TFF 

TFR 

TIM 

TIMCHK 

TIMEK 

TIMING 

TIMOUT 

TIMOUTCK 

TIMST 

TMSTOP 

TOR 



LIBNUM=12 
LIBNUM=12 



33-30, 45-46, 51-10, 53- 



118-36 
1-38 
4-41 
5-01 
5-02 
5-03 
5-04 

79-03 
78-43 
78-48 
13-45 



4-42 
24-26 

65-21 
4-34 



4-30 

4-02 

80-22 

2-01 



19-11 

119-12 

14-02 

52-01 
33-29 
119-01 
21-08 
21-36 
19-10 



LIBNUM=12 

118-36 

115-09,117-11,123-12 

84-01 

44-15 

78-44 

79-01 

24-19, 24-48, 36-14. 36-17, 64- 

99-36,105-09,1 16-13, i26-10,128- 

78-47 
6-27 
6-28 
H=2 S=0 N=10 CL=3 LIBNUM=10 

44-31, 45-22, 71-15, 72-32, 73- 
105-07,105-08,108-11,108-12,111- 
W=2 S=16 N=6 CL=2 111- 

84-02 

26-47 
LIBNUM=10 50-36, 

65-16 

24-22, 31-21, 40-45, 45-03, 45- 

65-06, 65-25, 70-35, 71-44, 73- 

94-09, 95-46, 97-06,101-13,102- 
130-07,131-07,133-08,134-19,13.'.- 

24-44 
102-05 

80-15 

31-15, 32-11,102-26 
LIBNUM=10 55-45, 76-39 
LIBNUM=10 40-38, 55-42, 64- 
H=1 S=12 N=0 CL=3 26- 



0:43:06 2/06/81 


«•*** 


CTAPH 


W77D 




■ ■ . 


7,124-20,128-37 




0, 53-38, 60-42, 73-42, 75-43, 81-05, 85-01,121-45 




- 





09, 76- 
04,128- 



24- 

12, 81- 
47,111- 
46 



09, 78-46, 79-02, 79-04, 83-44, 89-12, 90-28, 92-06, 
14,132-08 



25, 26-44, 27-22, 35-14, 35-20, 44-21, 44-28, 44-29, 
15, 81-16, 87-30, 87-31, 92-11, 97-27, 99-37, 99-38, 
48,117-15,123-20,127-09,131-07,133-08,133-09 



54-34, 56-07, 61-23 



11, 45-15, 45-37, 51-05, 58-08, 59-33, 61-29, 61-46, 62-13, 
45, 74-29, 75-12, 79-12, 82-21, 84-44, 92-11, 92-14, 93-11, 
36,102-41,105-11,105-27,106-05,108-10,110-10,111-39,114-15, 
12,136-12,137-11,138-12,139-11 



13, 77 
02, 51 

33 



H=20 S=0 N=14 CL=3 LIBNUM=10 
121-47 

27-38 

45-45, 51-09, 60-41, 73-41, 75-42,121 

41-25, 52-07, 61-36 

46-02, 84-45,121-48 
116-23 
W=1 S=11 N=0 CL=3 25-47 



-09 

■02, 53-18, 65-12, 67-45,116-19 

•32, 45-49, 51-12, 55-38, 60-44, 75-45, 81-18,119-10, 
-44 
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PATCH HISTORY 








0:43:06 2/06/81 **** 


VALUE 


T 


NAME 


DEF/REF 


ATTRIBUTES 


AND REFERENCES CTAPH W77D 


0000016 


A 


TORLOK 


14-05 


M-1 S"»15 N«16 CL«3 


LIBNUM=10 25-49, 26-04, 26-09, 27-03 


0600000 


L 


TPATCH 


2-03 








0002117 


A 


TR 011798 


142-02 








0002123 


A 


TR~011914 


142-12 








0002107 


A 


TR"012230 


141-13 








0002103 


A 


TR 012274 


141-02 








0002113 


A 


TR 012376 


141-24 








0002127 


A 


TR~012648 


142-23 






■ 


0002143 


A 


TR~012808 


143-27 






~ 


0002137 


A 


TR~013001 


143-16 








0002153 


A 


TR~013055 


143-02 








0002147 


A 


TR~013057 


144-02 








0002177 


A 


TR~013058 


146-02 








0002167 


A 


TR 013214 


145-15 








0002153 


A 


TR 013537 


144-12 








0002157 


A 


TR 013596 


144-25 








0002163 


A 


TR~013669 


145-02 








0002173 


A 


TR 014090 


145-27 








0001140 


A 


TR~11798 


85-30 








0001553 


A 


TR~1191* 


24-30 


24-40, 90-33, 


116-29 




0001722 


A 


TR~122SO 


87-35 


114-23,114-33, 


115-16, 


117-17,117-27,123-22,123-32,124-04 


0002074 


A 


TR~12274 


79-16 


79-26, 79-45, 


83-22, 


86-01, 86-18, 88-28,139-08 


0001272 


A 


TR~12376 


95-08 


95-29 






0001010 


A 


TR"12648 


67-11 


67-28, 68-13, 


69-07 




0001344 


A 


TR~12808 


96-17 


96-27, 98-28 






0001116 


A 


TR~13001 


81-12 








0002045 


A 


TR~13055 


135-09 








0002065 


A 


TR~13057 


138-14 








0000757 


A 


TR 13058 


65-02 


65-35 






0001112 


A 


TR~13537 


81-02 








0000722 


A 


TR~13596 


58-28 


58-38 






0001417 


A 


TR~13669 


31-11 


31-21, 31-42, 


32-06, 


32-17,102-22,102-32,103-07 


0001372 


A 


TR 14090 


101-18 








0001217 


A 


TR~3E790243 


89-14 


89-24 






0001400 


A 


TR~3E790502 


101-40 


102-02 






0002033 


A 


TR~3E790646 


134-09 


134-19 






0001335 


A 


TR~3E800177 


37-19 


97-43, 98-08 






0000006 


A 


TRACK 


13-37 


W=2 S=13 N=6 
54-05, 54-06, 
67-34, 74-13, 


CL=3 
54-08, 
74-14, 


LIBNUM=10 39-39, 39-40, 39-41, 39-42, 47-33, 47-48, 50-04, 51-04, 
58-38, 58-39, 59-12, 59-13, 62-35, 62-36, 62-42, 62-46, 67-28, 67-29, 
97-26, 99-32,111-43,138-22,138-25,138-40,138-41 


0003415 


A 


TRB 




LIBNUM=10 


34-08, 


45-40, 51-20, 69-01, 73-34, 85-42 


0000000 


A 


TRCK 


9-05 


W=2 S=13 N=0 


CL=3 


LIBNUM=10 59-14,129-13,129-14,129-23 


•+6' 


T 


TRK 




H=2 S=13 N=6 


CL=2 




0000000 


A 


TRKS 


18-08 


W=2 S=14 N=0 


CL=3 


LIBNUM=10 50-40, 99-34 


0127465 


L 


TR0R6 


24-30 


31-11, 31-42, 

83-22, 85-30, 

101-18,101-40, 


32-06, 

86-01, 

102-22, 


37-19, 58-28, 65-02, 67-11, 68-13, 69-07, 79-16, 79-45, 81-02, 81-12, 
86-18, 87-35, 88-28, 89-14, 90-33, 95-08, 95-29, 96-17, 97-43, 98-28, 
103-07,114-23,115-16,116-29,117-17,123-22,124-04,134-09,135-09,138-14 


ooo74i:; 


A 


TRT 




LIBNUM=10 


33-21, 


40-01 


0002015 


A 


TSTAT 




LIBNUM=10 


25-07, 


27-16, 41-30, 81-38, 84-09,116-15,120-11,126-12 
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PATCH HISTORY 
VALUE T NAME 
0000000 A TSTATE 



0000015 
0126507 
TTYTBL 
TTTTBL 
TTYTBL 
TTYTBL 
TTTTBL 



0000002 

0000010 

0000004 

0000006 

0000002 

0000000 

0000002 



0000015 

•TAPETBL+1 ' 

0000000 

0000004 

0123253 

CTSD 

CNRUTL 
0000002 
0125614 
0127510 
0003015 
0005415 
0000000 

TTYTBL 

. 0126161 
0123643 

CSYSUB 

0000000 

0125740 

0126570 

0123640 



TSTOP 
TSTPE 
TTY IP 
TTY N6 
TTY OK 
TTY PF 
TTY~RL 

U TTYAPP 

A TTYO 
TTYO'BCD 
TTYO DEC 
TTYO L X 
TTYO SKP 
TTYO WRD 
TTYOCNT 

U TTYTBL 

A TUCOEV 
TUENABL 
TUR 
TURER 
TUSCAN 
TUSTAT 



•+0' 



0123740 
0124155 
0000007 
0124111 
0124736 
0123550 
0000005 



TUUTCTL 

TUUTIL 

THAIT 

TWOTRKS 

TWSTP 

THT 

TYPER 

UCL 

UNDEF 

UNITCHK 

UNLOOIOC 

UNST 

UPDAFINI 

UPOATSTAT 

USERLOOK 

USRDIST 

VERIFY 

VERSET 

VERST 

VERSTP 

VERSTPS 

VERSTPX 

VERTRK 



DEF/REF 
17-11 



105-33 
5-08 
5-0? 
5-10 
5-11 
5-12 
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CTAPH W77D 



^l%V.^,i\l^l*s£%' "-"' 21 " 19 ' 21 " 20 ' 21 " 21 ' 24 " 41 ' 25 " 12 ' 90 " 08 ' 

LIBNUM=10 84-24 

105-25 

93-18 

92-30 

90-21, 91-02, 92-26 
128-41 

90-16 



LIBNUM=5 77-29, 77-30, 88-06, 96-47,115-32,118-06,124-19,128-35 

LIBNUM=5 88-05,115-31,115-32,118-06,124-18 

LIBNUM=5 96-46 

LIBNUM=5 88-05, 88-06,115-31,115-32,118-05,124-18,128-34,128-35 

LIBNUM=5 88-05,115-31 

LIBNUM=5 77-29, 88-05, 96-46,115-31,118-05,124-18 
77-31 88-07, 96-48,115-33,118-07,124-20,128-36 

21-27 25-43 

24-48, 36-17, 78-46, 79-02, 79-04, 83-44, 90-28, 99-36,105-09,116-13 

W=1 S=7 N=0 CL=3 25-43 
25-45 

25-48, 26-03 

24-27, 87-32, 90-03, 92-21,108-09,114-18,117-27,123-32,125-10,127-10,128-03,132-10,134-21, 



19-08 

118-34 

26-14 

4-35 



4-15 89-37 

21-25 89-33 

83-37 83-38 

138-36 138-30 

LIBNUM=10 87-12 

LIBNUM=10 60-36 

H=1 S=6 N=0 CL=3 LIBNUM=10 101-29,103-46 

90-06 

89-26, 92-09 
43-33, 43-37, 45-19 
79-07 
W=1 S=13 N=0 CL»3 
85-15 
82-39, 85-06,120-31 

H=10 S=10 N=0 CL=2 
27-39 

56-11, 70-40 

53-25, 70-33, 70-42, 75-33 
40-24, 48-26, 48-29, 48-34, 48-36, 68-20 
67-16 
39-26, 39-28 

M ll ,S =1 ? N=5 cl ** LIBNUM-10 37-32, 39-44, 47-32, 49-06, 49-07, 49-21, 49-35, 50-17, 
50-38, 54-09, 62-43, 71-30, 74-16, 74-26, 97-24'l11-44 ' ' * 



8-14 

5-13 

92-27 

44-13 

4-23 

20-11 

85-38 

109-01 

43-38 

47-01 
53-21 
21-09 
51-01 
68-19 
40-23 
13-32 
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VALUE 


T 


NAME 


DEF/REF 


ATTRIBUTES AND REFERENCES 


CTAPH W77D 


TTYTBL 


X 


WX2X 


71-40 


71-40 




0113725 


L 


WATNX 


66-01 


65-11, 65-19 




0000000 


A 


WENBL 


19-07 


H=1 S=6 N=0 CL=3 25-43 




>*C' 


T 


WORDCNT 




W=3 S=0 N«0 CL=2 LIBNUM»10 111-25 




0000100 


A 


WRDBUF 




LIBNUM=10 59-34, 83-03,105-12 




0000003 


A 


WRITE 




LIBNUM=10 103-20 




0125772 


L 


WRITEINT 


86-35 


81-33 




0124761 


L 


WRITEMATE 


69-18 


67-18 




01234*4 


L 


HRITEPROG 


35-01 


29-46 




0124325 


L 


WRITESTATE 


57-01 


27-40 




0000010 


A 


HRITST 


21-10 


35-22, 71-12, 71-45, 72-09 




0000000 


A 


WRTABS 


8-13 


W=1 S=5 N=0 CL=3 LIBNUM=10 103-16 




0000000 


A 


HSI 


13-19 


W=1 S=6 N=0 CL=3 LIBNUM=10 86-40, 86-42, 87-22 




0124246 


L 


XBCKTIM 


54-40 


61-30 




0124770 


L 


X8CKUP 


70-18 


73-28 




0126743 


L 


XORTAB 


113-01 


6-30, 59-37 




0124250 


L 


XRMVCL 


54-47 


59-19 




0124756 


L 


XRMVPO 


69-04 


60-20, 60-30, 60-39, 61-27, 73-37, 75-40 




0124244 


L 


XRMVPOX 


54-38 


53-35, 55-49 




0126730 


L 


ZERCHK 


112-19 


111-33 




0123251 


L 


ZEROMV 


26-08 


26-01 




0123652 


L 


ZERON 


44-22 


44-17, 44-20 




0125115 


L 


ZFTWRT 


72-36 


72-33 




0125040 


L 


ZREAD 


71-19 


71-16 




0126714 


L 


ZROr-N 


112-03 


111-49 




0123725 


L 


ZRPUSH 


46-03 


35-23, 43-44, 53-26, 71-47 




0125137 


L 


ZTRNS 


73-17 


73-13 




1 


J 


3ACC 


1-09 






0000016 


A 


5MRTN 


14-07 


W=1 S*17 N=16 CL«3 79-37, 79-43,139-12 
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PATCH HISTORT 

COUNT T NAME 

5 AI 
12 AN 

5 AR 
29 A1S 



157 B 



0:43:06 



2/06/81 



DEF/REF 



REFERENCES 



CTAPH 



W77D 



98 BC 



9 8CL 
77 BL 



122 BNC 



13 BNCL 
13 BPAX 

COMMON TAPE HANDLER 



libnum=i 

LIBNUM=1 

111-27 

LIBNUM=1 

LIBNUM=1 
65-25, 70 

105-27,110 

LIBNUM=1 
29-49, 30 
40-24, 40 
44-38, 45 
49-30, 49 
55-26, 55 
57-17, 57 
61-41, 61' 
67-18, 68 
70-24, 70 
76-16, 76 
83-13, 85 

112-02,112- 

LIBNUM=1 
40-37, 41- 
50-08, 50- 
57-42, 59- 
72-10, 72- 
82-03, 82- 
90-19, 95' 

111-33,120- 

LIBNUM=1 

LIBNUM=1 
27-41, 27- 
57-29, 58- 
68-18, 68- 
76-42, 77- 
98-11,101- 

139-13 

LIBNUM=1 
40-02, 40- 
53-35, 54- 
60-30, 60- 
71-16, 72- 
81-17, 81- 
84-30, 04- 
96-01, 96- 

105-25,105- 

120-16,126- 

LIBNUM-1 

102-35,102- 
LIBNUM-1 



39-40, 49-06, 55-28, 62-42, 96-02 

48-01, 50-12, 55-04, 55-33, 67-48, 71-05, 71-27, 73-10, 74-10, 80-26,109-18, 



50 
40 
■35, 71 
-10,112 
26 
■21, 30 
■46, 41 
■23, 46 
•36, 50 

29, 55 
■18, 57 
■49, 62 
■40, 69 
•26, 71 
•17, 76 
■20, 85 
■29,114 

24 
■29, 41 
•15, 50 
■11, 61 
•28, 74 
•25, 83 
•48, 96 
■14,121 
61 
24 
•42, 27 
01, 58 
■20, 68 
•17, 77 
•44,102- 

25 
•43, 41- 
■04, 54- 
39, 61- 

08, 72- 

30, 81- 
41, 85- 

09, 96- 
36,105- 
22,128- 

31- 
39 

26- 



-11, 54- 
-45, 45- 
-17, 71- 
-01,112- 
-06, 26- 
-25, 33- 
-42, 41- 
-24, 48- 
-23, 50- 
-43, 56- 
-19, 57- 
-49, 64- 
-10, 69- 
-18, 71- 
-18, 77- 
-33, 86- 
-05 

-24, 25- 
-33, 44- 
-20, 51- 
-05, 62- 
-04, 74- 
-11, 83- 
-31, 97- 
-14,121- 
-45, 62- 
-34, 25- 
-43, 31- 
-19, 58- 
-22, 68- 
-36, 79- 
-11,102- 

-13, 25- 
-26, 44- 
-21, 54- 
-09, 61- 
-33, 73- 
-37, 81- 
-09, 85- 
-15, 96- 
-38,109- 
-10,129- 
•24, 5*- 



•17, 55- 
•03, 45- 
•20, 71- 
•04,115- 
•10, 26- 
•36, 34- 
■46, 42- 
■06, 48- 
•30, 50- 
•01, 56- 
•20, 57- 
•15, 64- 
•21, 70- 
32, 72- 
03, 77- 
48, 87- 

42, 26- 
17, 44- 
03, 51- 
37, 62- 

08, 74- 
20, 84- 
37,101- 
24,123- 
39, 65- 
01, 27- 
15, 31- 
32, 58- 

28, 70- 
20, 79- 
26,102- 

46, 25- 

20, 44- 
25, 54- 
12, 61- 

09, 73- 
44, 82- 
15, 85- 

29, 96- 
12,111- 
25,132- 
39, 60- 



•37,111- 

■11, 45- 

■44, 72- 
•11 

■31, 26- 

•09, 35- 

■05, 42- 

•24, 48- 

■44, 51- 

■11, 57- 

•21, 57- 

•16, 64- 

•13, 70- 

•20, 72- 

•10, 78- 

■06, 87- 

•01, 26- 
•26, 44- 
07, 53- 
•45, 64- 
■15, 74- 
17, 84- 
■30,103- 
16,126- 
11, 65- 

32, 27- 
27, 32- 
42, 62- 
•43, 71- 
31, 84- 
43,114- 

48, 26- 

30, 45- 

31, 55- 
27, 61- 
13, 73- 
10, 82- 
19, 85- 

33, 98- 
36,111- 
14,138- 
25, 60- 



21,138-39 

15, 45-37, 51-05, 58-08, 59-33, 61-29, 61-46, 62-13, 

34, 72-37, 73-14, 73-18, 73-45, 74-29, 82-21, 84-4*, 



32, 28-05, 
23, 36-30, 
17, 42-22, 
26, 48-28, 
13, 51-21, 
09, 57-10, 

22, 57-23, 
35, 64-40, 
15, 70-16, 
35, 73-01, 
47, 80-06, 

23, 88-13, 



29-43, 
37-37, 
43-33, 
48-29, 
51-39, 
57-11, 
57-24, 
67-08, 
70-17, 
73-16, 
80-18, 
88-31, 



29-44, 
39-25, 
43-34, 
48-32, 
53-26, 
57-12, 
59-26, 
67-<.9, 
70-19, 
73-28, 
80-27, 
95-11, 



29-45, 
39-26, 
43-35, 
46-33, 
53-40, 
57-13, 
60-09, 
67-14, 
70-20, 
75-01, 
80-35, 
97-40, 



29-46, 
39-27, 
43-36, 
48-34, 
54-11, 
57-H, 
60-45, 
67-15, 
70-21, 
76-13, 
80-48, 
99-08, 



29-47, 
39-28, 
43-37, 
48-35, 
54-41, 
57-15, 
61-16, 
67-16, 
70-22, 
76-14, 
82-31, 
99-16,1 



29-48, 
40-09, 
43-44, 
48-36, 
55-11, 
57-16, 
61-30, 
67-17, 
70-23, 
76-15, 
82-47, 
11-07, 



41, 26 
■36, 47 
13, 53 
29, 65 
37, 74 

23, 84 
05,103 
15,128 

24, 70 

33, 27 
11, 32 

15, 64 
47, 72 
01, 84 
27,114 

03, 26 
10, 45 
09, 55 
37, 61 
22, 73 

16, 82 
43, 86 
26, 99 
49,112 
30,138 

34, 62 



-43, 26-45, 27-02, 35-17, 39-43, 40-04, 40-07, 

•36, 47-49, 49-05, 49-16, 49-18, 49-20, 50-05, 

•20, 53-24, 54-27, 55-35, 55-41, 57-36, 57-40, 

-13, 65-16, 65-37, 67-46, 68-39, 70-3*, 71-13, 

■47, 75-34, 80-01, 80-15, 80-17, 80-24, 81-33, 

■38, 85-47, 87-03, 87-29, 89-46, 90-07, 90-13, 

•19,103-47,108-15,109-15,110-09,110-13,111-15, 

•19,128-24,129-16 

•40, 79-28, 89-30,102-09,139-09 

■34, 27-35, 27-36, 27-37, 27-38, 27-39, 27-40, 

•20, 36-24, 46-09, 49-43, 51-32, 52-11, 54-48, 

■18, 65-29, 65-43, 66-06, 67-22, 67-39, 68-02, 

•41, 73-46, 74-30, 74-40, 75-07, 75-48, 76-32, 

■02, 89-18, 89-40, 96-21, 97-08, 97-13, 98-02, 

■37,117-21,117-30,123-26,123-35,134-13,134-24, 



-16, 26-39, 30-13, 30-16, 32-02, 33-25, 35-10, 

-19, 45-43, 46-20, 47-43, 49-08, 50-43, 52-08, 

-49, 56-09, 58-10, 59-02, 59-19, 60-08, 60-20, 

-39, 62-07, 62-09, 62-22, 64-32, 68-37, 71-07, 

-37, 74-12, 74-21, 75-36, 75-40, 80-33, 80-44, 

-23, 82-27, 82-37, 82-46, 83-40, 84-15, 84-21, 

-04, 86-41, 87-18, 90-09, 90-11, 92-09, 92-13, 

-42, 99-44,101-16,101-37,103-21,103-28,103-43, 
•07,112-35,114-17,115-03,116-18,116-21,119-14, 
-42 

•31, 65-19, 67-36, 69-05, 89-26, 89-32, 89-36, 

■30, 27-31, 29-42, 39-21, 41-49, 43-32, 48-22, 57-08, 64-14, 67-07, 70-12, 
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PATCH HISTORT 
COUNT T NAME 



,1 BR 
43 BSA 



DEF/REF 



95 BSAI 



4 BTSA 
22 BTSAG 

26 BTSAGN 



4 BTSAN 
33 BX 



8 CI 
20 CIRM 

1 COM 

5 CR 

14 CRN 

4 EXR 
14 GN 

35 HA 



14 HN 

2 ICF 
11 IRM 

95 L 



REFERENCES 



76-12, 83 
UBNUM"1 
LIBNUM=1 
60-33, 61' 
83-46, 85 
114-35,115 
LI8NUM=1 
41-32, 41 
50-42, 51 
60-38, 60 
71-25, 71 
77-27, 81 
98-18,103 
121-20,121 
LIBNUM=1 
LIBNUM=1 
125-16,130 
LIBNUM=1 
112-15,112 
132-17,132 
LIBNUM=1 
UBNUM=1 
80-34, 81 
87-16,105 
LIBNUM=1 
LIBNUM=1 

85-48, 87 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
101-36,109 
UBNUM«=1 
LIBNUM=1 
115-08,117 
LIBNUM=1 
107-07,109 
126-09,129 
LIBNUM=1 
101-33,101 
LIBNUM=1 
LI3NUM=1 

LIBNUM=1 
45-20, 45 
54-15, 54 
67-28, 67 
85-40, 86 
106-07,107 
121-31,121 



-49 

86- 

26- 

•36, 61- 

•06, 85- 

■39,117- 

25- 

•38, 42- 

•10, 51- 

•42, 61- 

•42, 72- 

•05, 81- 

■32,109- 

•45,122- 

106- 

94- 

•10,131- 

90- 

■23,112- 

-20 

108- 

26- 

■41, 82- 

■23,105- 

40- 

25- 

-02, 95- 

55- 

26' 

26- 

■13,138- 

97- 

40' 

•10,123- 

75- 

■05,111- 

■09,130- 

26- 

■34,126- 

24- 

50- 



31 

36, 41- 

48, 62- 
08, 85- 
42,120- 
38, 26- 

13, 43- 
28, 51- 
26, 62- 

14, 72- 
26, 84- 
09,112- 
01,124- 
15,108- 
12, 98- 
09,133- 

16, 90- 
37,115- 

17,106- 
47, 36- 
08, 82- 
26,105- 
01, 60- 

43, 26- 

49, 99- 
03 

15, 89- 

44, 49- 
41 

30, 97- 

34, 81- 

11 

05, 86- 

04,111- 

06,131- 

17, 79- 
20 

44,103- 
40, 58- 



25, 41- 
06, 62- 

28, 86- 
21,120- 

29, 27- 
41, 44- 
38, 52- 
11, 62- 
18, 73- 
48, 85- 
12,115- 
16,126- 
22,110- 
46,100- 
12,134- 
21, 91- 
06,115- 



40, 42' 
21, 64 
13, 87 
31,124' 
21, 31 
25, 44 
10, 53 
24, 62 
36, 73 

01, 85 
29,116 
14,128 
15,127 
02,107 
36,135 

02, 92 
41,119 



■16, 45- 
•28, 64- 
■05, 87- 
•02 

•40, 33- 
•35, 45- 
•34, 53- 
■48, 64- 
•42, 74- 
•12, 88- 
•17,116- 
■32 
■13 

■17,109- 
•19,136- 
•26, 92- 
■16,119- 



07, 46 
39, 65 
44, 86 

24, 33 
42, 45 
38, 54 
31, 67 
18, 74 
03, 88 
26,118 



-19, 52- 

-09, 65- 

■26, 89- 

-30, 35- 

-46, 46- 

•37, 55- 

-38, 68- 

•20, 74- 

-21, 90- 
-03,118- 



0:43:06 2/06/81 **** 
CTAPH M77D 



07, 54-29, 55-07, 59-18, 60-24, 
49, 72-40, 76-24, 79-07, 82-39, 
28, 92-24, 99-48,102-05,105-43, 



16, 36-23, 
07, 46-22, 

48, 58-16, 
34, 68-36, 

49, 75-16, 
26, 92-17, 93 
15,119-13,120 



•29, 37-36, 39-48, 
•02, 49-23, 50-29, 
•23, 60-19, 60-29, 
•48, 69-03, 69-20, 
■39, 75-43, 76-30, 
■13, 96-44, 97-33, 
■13,120-18,120-33, 



25,116- 
16,137- 
30, 93- 
19,120- 



43,118 
15,138 
18,104 
23,120 



■20,110-18,128-41 

•19, 40-41, 55-2S, 60-02, 60-04, 64- 

•14, 82-30, 82-35, 82-44, 83-12, 83- 

•39,111-38,112-20,125-14,128-13,132- 

■07, 65-36, 81-36, 62-26, 83-19, 85- 

■40, 31-22, 54-02, 70-33, 71-12, 72- 

•41,101-15,102-32,103-20,103-26,103- 

•35, 92-12,111-35,138-29 

•07. 50-04, 50-13, 56-08, 58-40, 62- 



•17,121-16,122-03,123-18,124-25, 
•35,138-45,139-02 
■03,104-06,104-09,105-29,105-45, 
■37,126-18,126-24,129-20,129-27, 



34, 66-02, 76-31, 79-26, 80-13, 

17, 83-38, 84-12, 84-28, 86-47, 

15 

42, 89-38 

09, 73-21, 74-14, 75-33, 75-35, 

41 



36, 67-34, 73-08, 74-11, 81-16, 



31, 97-34, 97-35 

27, 81-28, 83-42, 83-43, 83-47, 86-27, 95-32, 95-33,101-11,101-12, 



•16, 93-09, 94-08, 95-05, 95-26, 99 
•11,114-03,114-14,116-12,117-09,119 
•06,132-07,133-07, 134-07, 135-07>136 
•05, 79-08, 79-09, 81-23, 81-24, 86' 

■18 

•39, 59-13, 59-49, 67-29, 86-28, 99-34,101-21,107-12,107-13,133-09, 



■07, 99-15, 99-31,101-10,105-06, 

■09,120-10,121-09,123-10,125-09, 

•11,137-10,138-11 

•29, 86-30, 98-39, 98-40, 99-49, 



24-25, 27-22, 27-25, 27-27, 30-14, 31-34, 37- 
•33, 45-35, ^4-16, 46-17, 47-32, 47-33, 50-09, 50- 
■18, 56-06, 58-11, 58-26, 58-38, 59-12, 59-32, 62- 
•47, 71-26, 74-13, 75-21, 75-24, 75-26, 75-28, 75- 
■06, 86-11, 87-01, 87-30, 95-36, 99-32, 99-37,101- 
■08,107-09,108-11,110-06,111-24,111-40,111-42,117- 
■33,121-35,121-40,123-14,123-20,128-15,128-16,128- 



30, 39-39, 39-46, 45- 
10, 50-38, 51-04, 54- 
33, 62-34, 65-27, 65- 
30, 75-32, 81-15, 81- 
14,101-35,103-33,105- 
15,119-10,121-12,121- 
20,128-21,128-25,128- 



04, 45-05, 
01, 54-13, 
39, 67-20, 
34, 84-10, 
07,106-06, 
27,121-29, 
26,129-11, 



COMMON TAPE HANDLER 
0:43:06 2/06/81 



TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH 



PR-1C957-50 
ISSUE 08 PAGE 



181 



P09 



PATCH HISTORT 
COUNT T NAME 



10 LA 
65 LAL 



0:43:06 



DEF/REF 



9 LAX 
83 LI 



33 LL 
68 LN 

40 LR 



9 LRM 
19 LX 

2 MIS 
38 NI 



2 

3 

1 

1 

14 

1 
9 
8 

1 
34 



NOP 

NR 

01 

RL 

RLN 

RR 

RRN 

SBN 

SBR 

SBS 






REFERENCES 



2/06/81 **** 
W770 



129-12,129 
LIBNUM=1 
LIBNUM=1 
75-06, 75 
92-21, 93 
111-39,112 
126-10,127 
138-12,139 
I.IBNUM=1 
LIBNUM=1 
45-40, 46 
55-42, 55 
73-14, 75 
83-35, 84 
92-18, 93 
116-23,118 
LIBNUM=1 
72-19, 74 
92-06, 92 
LIBNUM=1 
40-40, 41 
65-40, 65 
78-49, 79 
85-17, 86 
111-23,111 
LI8NUM=1 

90-38, 90 
109-14,109 
124-07,138 
LIBNUM=1 
LIBNUM=1 
115-19,116 
LIBNUM=1 
LIBNUM=1 

85-41, 87' 
114-16,117' 
138-28 
LIBNUM=1 
LIBNUM=1 
LI8NUM=1 
LIBNUM=1 
LIBNUM=1 
107-10,107' 
LIBNUM»1 
LIBNUM=1 
LIBNUM=*1 
LIBNUM=1 
LIBNUM=1 
51-18, 55- 



-22,138' 
60 
24 
-12, 75' 
-11, 94 
-09,112 
-10,128 
-11 

59 

25 

-02, 47' 

-45, 56 

-14, 76- 

-09, 84- 

-10, 93 

-13,120' 

24- 

-09, 78- 

-11,102 

25' 

-45, 42 

-45, 67- 

-14, 80- 

-46, 87- 

-28,114- 

26' 

-39, 90- 

-22,109- 

-32,138- 

39- 

24- 

-14,117- 

95- 

29- 

-38, 98- 

•36,121- 



•17,138- 
•03, 64- 
•22, 24- 
•19, 76- 
■09, 95- 
■10,114- 
•03,129- 

■40, 83- 
■07, 26- 
■47, 48- 
■07, 59- 
■26, 76- 
•24, 84- 
•14, 96- 
■11,121- 
■19, 36- 
•44, 79- 
•36,105- 
■45, 26- 
•04, 42- 
•31, 70- 
•09, 80- 
■14, 92- 
•04,121- 
•18, 27- 
■40, 90- 
•23,111- 
•48 

■49, 54- 
28, 25- 
■14,117- 
■43, 98- 
■41, 30- 
32, 99- 
13,123- 



CTAPH 

24,138-27,138-40 

11, 76-11, 80-08, 87-32,101-27,101-31,105-18,112-32,125-13 

27, 24-42, 24-48, 31-21, 36-17, 58-25, 59-36, 59-37, 64-09, 65-06, 

09, 78-46, 79-02, 79-12, 83-04, 86-21, 90-03, 90-23, 90-28, 92-14, 

46, 99-36,101-13,105-09,105-14,106-05,108-09,108-10,111-05,111-13, 

18,115-09,115-14,116-13,117-11,117-13,117-27,123-12,123-32,125-10, 

10,130-07,132-08,132-10,133-08,134-19,134-21,135-12,136-12,137-11, 



05, 90 
27, 27 
49, 50 

34, 60 
39, 77 
42, 64 
36, 96 
18,121 

14, 40 
01, 79 
11,114 

35, 27 

06, 43 
41, 70 
32, 81 

15, 95 
37,129 
17, 27 
41, 90 
19,111 



-04, 90- 

-16, 31- 

-36, 51- 

-17, 60- 

-09, 79- 

-45, 85- 

-38, 97- 
-48,126- 

-05, 44- 

-04, 80- 
•15,120- 

-18, 28- 

-43, 45- 

■42, 71- 

-40, 82- 

■41, 97- 
-18 

■24, 32- 

•42, 95- 
•26,114- 



29, 98- 
09, 33- 
20, 51- 

27, 60- 
11, 81- 
24, 86- 

28, 98- 
12,138- 
15, 55- 
45, 83- 
29,128- 

03, 29- 
13, 49- 
45, 72- 
07, 82- 

04, 97- 

18, 35- 
34, 95- 
33,114- 



38,105- 
21, 34- 
26, 53- 
36, 61- 

38, 82- 
44, 87- 
09,105- 
37 

36, 59- 
44, 84- 
04,128- 

39, 30- 
42, 53- 
30, 72- 
13, 82- 
11, 97- 



15,108-13,114-19,127-11 

08, 36-16, 40-38, 41-30, 41-36, 42-10, 

32, 54-05, 54-07, 54-10, 54-34, 55-31, 

23, 64-13, 69-01, 71-23, 71-40, 72-16, 

05, 82-11, 82-20, 82-28, 82-41, 83-03, 

12, 88-19, 89-33, 90-24, 90-30, 92-10, 

12,105-35,112-08,112-28,116-15,116-20, 



35, 62-29, 70- 
19, 84-39, 85- 
14,131-07 

17, 31-46, 33- 
25, 54-46, 57- 
49, 73-26, 76- 
34, 82-43, 83- 

36, 97-39,105- 



32, 71-03, 71-04, 72-06, 
03, 89-12, 89-34, 89-37, 

34, 35-22, 36-21, 37-33, 
44, 59-43, 64-12, 64-37, 
38, 77-02, 77-08, 77-15, 
07, 83-34, 84-10, 84-25, 
17,105-21,110-11,111-06, 



12, 42-11, 42-14, 47-37, 83-26, 83-27, 87-45, 
35,102-02,102-03,102-06,102-07,109-06,109-07, 
43,116-33,116-34,116-35,116-36,116-37,117-43, 



23, 59-45, 61-10, 95-45, 96-27,114-20,138-22,138-25 

35, 36-27, 59-46, 64-25, 76-28, 87-33, 99-39,105-10,111-30,111-34, 

28,123-33,126-11,128-08,132^12 

15, 39-42, 47-48, 50-19, 54-14, 54-16, 54-19, 58-12, 62-35, 65-35, 
38,103-23,103-34,103-35,105-08,106-08,106-09,108-12,111-17,111-25, 
15, 123-41, 129-13, 129-14, 129-23,132-13,136-14,137-l3,138-23'l38-26^ 



42-01 
27-23 
87-31 
24-45 
27-29 

11,111-18 
24-43 
45-21 
25-14 
128-11 
26-04 

10, 58-17 



, 42-02 

, 27-26, 27-28 

■ 

41-48, 50-39, 59-39, 81-35, 83-48, 96-10, 99-33,103-22,103-42,105-13, 

, 59-47, 59-48, 98-37,103-17,106-10,106-11,111-20,111-46 

, 32-04, 55-08, 72-29, 80-46, 95-27, 97-10,109-16 

, 26-05, 30-20, 31-25, 32-03, 37-2*, 44-21, 44-29, 49-03, 49-13, 49-24, 

59-07, 61-43, 73-38, 84-31, 85-13, 85-44, 87-21, 87-22, 93-16, 94-10, 



COMMON TAPE HANDLER 

0:43:06 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH 



PR-1C957-50 
ISSUE 08 PAGE 



182 



• • 



E09 



PATCH 


HISTORY 


COUNT 


T 


NAME 




1 
15 






SIO 
SMIO 




21 





SN 




19 





SR 




61 





ST 



0:43:06 



DEF/REF REFERENCES 



CTAPH 



2/06/81 **** 
W77D 



1 STA 
1 STAL 
7 STL 
47 STM 



1 STX 
58 TBN 



1 TBR 
50 TBS 


1 
13 






TCC1 
TIO 


2 

11 






TMIO 
U 


2 

1 

5 

41 








XI 
XR 
ZBN 
ZBS 



29 ZR 



96-12, 98- 
LIBNUM=1 
LIBNUM=1 

?4-43, 86' 
LIBNUM=1 

92-07,103' 
LIBNUM=1 
129-15,129 
LIBNUM=1 
60-22, 60 
75-20, 75 
92-19, 93 
121-22,121 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
LIBNUM=1 
48-39, 49 
62-43, 62 
97-38,103 
LIBNUH=1 
LIBNUH=1 
51-06, 53 
67-45, 68 
90-08, 90 
103-46,105 
LIBNUM=1 
LIBNUM=1 
49-14, 49 
70-38, 71 
84-16, 84 
LIBNUM=1 
LIBNUM=1 

87-17,105 
LIBNUM=1 
LIBNUM=1 



■08,103 
105 

40- 
•45, 87- 

24 
■30,103 

54- 
•24,138 

30 
-44, 61 
■22, 75 
■15, 96- 
-30,121- 

83- 
121- 

59- 

24- 
-21, 49- 
-46, 67- 
-40,103- 

92- 

24- 
-12, 53- 
-38, 72- 
1-10, 90' 
-37,108' 
126' 

24' 

17, 49 

■06, 71 

-22, 84 

44 

40 



01,120-34,121-11,121-25,134-20,137-12,139-12 



12, 81- 
31 

04, 50- 
31,111- 
24, 55- 
33,138' 
32, 35' 
21, 62 
27, 75 

05, 97' 
•34,121 



I-24 



80- 
26- 



■11,115- 
•20 

39, 80- 
13, 90- 
21, 48- 
37,111- 
•20, 54- 
■31,138- 
■18, 33- 
■19, 61- 
■25, 75- 
•03, 96- 
■32,121- 
•16 
■28 

■25, 59- 
■46, 29- 
-27, 49- 
-32, 71- 
-44,103- 
-22 

-41, 25' 
-18, 55' 
-27, 79' 
-18, 95' 
-14,109 
-21 

-23, 25 
-19, 50 
-15, 72 
-37, 85 
-19 
42, 80 

16,105-34 
•42, 54-26, 61- 



39, 82-06, 82-12, 82-33, 82-42, 83-08, 83-36, 84-11, 84-26, 

10, 89-24, 
12,123-13, 



21, 54- 
37,112- 
34, 58 
38,138' 
•14, 35 
41, 65 
29, 75 
•27, 97 
•36,121 



•32, 61- 

■33,128- 
•13, 89- 
-43,138- 
-20, 37' 
-41, 65' 
-31, 75' 
-29, 99 
-38,121' 



•18, 61- 
■05,128- 
•25, 92- 
■47,138- 
■23, 39- 
•47, 66- 
■45, 81- 
•45,103- 
•39,121- 



20, 64 
17,128 
08,103 
49 

41, 45 
05, 67 
18, 84 
49,106 
41,121 



•10, 67-30, 73-06, 76- 

•22,132-09 

•36,110-12,115-10,117- 




38, 60- 
40, 32- 
•28, 49- 
■30, 74- 
■48,109- 

•12, 25- 
•40, 57- 
•27, 80- 
■47, 96- 
•11,110- 

-49, 26- 

-06, 53- 

-07, 72- 

-14, 85- 



06, 80-47, 97-06,102-41,103-24 

19^ 37-31' 37-32, 39-44, 45-14, 45-22, 48-03, 48- 

35, 50-17; 50-22^ 51-30; 54-06, 54-08, 54-09, 58- 

16; 74-26; 74-27; 96-04, 96-06, 96-11, 97-19, 97- 

19,109-21,111-43,111-44,111-45,111-47 

41, 25-47, 26-02, 32-01, 40-06, 44-16, 47-34, 47- 

39; 57-41, 61-04, 61-08, 62-30, 62-44, 65-12, 65- 

23; 80-31, 81-31, 82-02, 84-20, 84-40, 89-29, 89- 

08; 96-14; 96-30, 96-32; 98-25, 99-43,101-29,102- 
•08,115-02,116-19,128-09 

•49, 30-12, 35-09, 40-03, 40-36, 41-28, 44-28, 45- 
■22; 57-35, 58-09, 59-09, 61-38, 61-44, 62-08, 62 



33, 55-38, 
11, 73-27, 
20, 90-27, 
15,111-41, 



05, 48-38, 
14, 59-14, 
24, 97-26, 



■42, 51-02, 
•15, 65-17, 
•31, 90-06, 
■37,103-16, 



18, 49-04, 
38, 65-22, 
43, 82-22, 
15,121-23 



32; 73-12; 74-03, 74-06, 74-36, 74-46, 79-37, 80 
18; 85-46; 86-40; 87-28, 90-12,102-08,111-48,120 

1-14, 81-43, 82-09, 82-15, 82-36, 82-45, 83-10, 83-39, 84-14, 84-29, 



11, 82-24, 96-28,111-14,111-32,112-06,112-34,128-18,128-23, 



LIBNUM=1 35-13,127-08 

tlES E| J£8: IV-lk^^tll 33-33, 35-18, 37-25, 41-41. 42-21, 44-31, 

49-79 50-02 50-03 51-35; 55-22; 56-10; S8-07, 58-21, 59-10, 61-14, 61-40, 70-39, 71-11, 

71=46; M-38; 75-18; 75-23; 75-47, 79-«; 85-16; 85-39; 86-42;i15-12,120-35,125-12,130-08, 

libnum-1 3 *" 3 °' 1 33-35' 1 36-20, 37-22, 46-04, 47-44, 48-37, 49-26, 51-29, 55-23, 59-24, 60-21, 

L 62-40; 65-46, "-ofc 71-2°; U'lV, 78-45; 79-1 ; 85-22; 87-19, 90-05, 96-07, 96-39, 97-05, 
98-23,109-10,111-12,121-21,128-06 



COMMON TAPE HANDLER 

0:43:06 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH 



PR-1C957-50 
ISSUE 08 PAGE 



183 






PATCH HISTORY 
COUNT FLAG 

5 F 

1 w 

6 FLAG(S) FOUND IN THIS ASSEMBLY 



F09 



PAGE-LINE Of FLAG 

27-32, 27-36, 27-37, 27-39, 27-43 
81-05 






0:43:06 2/06/91 **** 
CTAPH W77D 



.■ 



COMMON TAPE HANDLER 

0:43:06 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CTAPH 



PR-1C957-50 
ISSUE 08 PAGE 1$4 



• 



